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CHAPTER 6 


NATURAL MODE VIBRATION ANALYSIS OF STRUCTURAL SYSTEMS 
BY DIRECT AND COMPONENT MODE SYNTHESIS TECHNIQUES 

Introduction 

Natural vibration modes constitute the basic ingredient in 
many flutter and dynamic response analyses procedures currently 
employed for aerospace structures. Flutter analyses based on the 
use of natural modes enjoy the convenience of having the structural 
dynamic characteristics completely describable in terms of the 
natural frequencies and generalized masses, the mode shapes being 
employed in the formulation of the generalized aerodynamic forces. 
In transient aeroelastic problems related to response in gust 
encounters or in maneuvers or dynamic response problems such as 
landing impact the use of a normal mode methodology provides an 
effective and systematic approach to the formulation of the 
governing equations of motion. For aircraft having rotating 
components such as propellers or rotors a complete knowledge of 
the vibratory characteristics of the airframe is necessary in 
order to avoid resonances with the airframe frequencies and to be 
able to assess the effects of the external excitation forces 
generated by the oscillatory aerodynamic loading. It is also 
common practice to make resonance tests of flight vehicle 
structures and/or their components (or suitable models thereof) 
on the ground and compare the experimental modes and frequencies 
with calculated values. This serves to validate the mathematical 
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model as regards the inertial and elastic properties to he used in 
subsequent flutter and dynamic response analyses. 

In recognition of the fundamental, role assumed by natural modes 
in aeroelastic and dynamic analyses and in structural design verifi- 
cation this chapter is concerned with the development of utilitarian 
computational procedures for the natural mode vibration analysis of 
linear structural systems. Following customary engineering practice 
in dealing with complicated structures, recourse is had to the ap- 
proximation of replacing the continuous structural system having an 
infinite number of degrees of freedom by an "equivalent" discrete 
system having a finite number of degrees of freedom. Herein this 
discretization is made by replacing the structure with a finite ele- 
ment mathematical model based on the stiffness method of structural 
analysis. Attention is directed to two methods for natural mode vi- 
bration analysis. The first consists of a direct approach based on 
a finite element representation of the complete structure as an enti- 
ty, the mass and stiffness matrices for the complete structure being 
assembled by properly combining the mass and stiffness matrices of 
the individual "elements" into which the structure has been 
divided. Such procedures are described in Refs. 6-1 and 6-2 for 
example. For large, complex structural systems, the determination 
of these modes by a direct method often leads to a problem size 
which is unwieldy or which exceeds the storage capacity of available 
computing machinery. An alternative approach to natural mode 
vibration analysis in such circumstances is that of component mode 
synthesis. This method is based on the toncept of synthesizing the 
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natural modes of the complete structure from modes* of conveniently 
defined substructures, or components, into which the structure has 
been partitioned. In this way the expedient of reducing the system 
degrees of freedom, and thus the size of the eigenvalue problem, can 
be introduced by partial modal synthesis wherein only a relatively 
few of the modes from each component are chosen as degrees of free- 
dom and employed in the synthesizing procedure. The total 
number of selected component modes, and hence modal coordinates, is 
then significantly less than the number of discrete degrees of free- 
dom established by the finite-element modeling process. In addition 
to the obvious advantage of reducing the size of the overall system 
eigenvalue problem, the component mode approach can be so formulated 
as to provide the added flexibility of including several types of 
component deflection shapes such as calculated or measured natural 
modes, assumed deflection shapes, or static deflection shapes. The 
chosen shapes may be based on interface restraint conditions which 
differ from those that exist in the assembled configuration. To judge 
from the number of recent additions to the literature the modal syn- 
thesis method of natural mode vibration analysis appears presently to 
be experiencing a "renaissance." This renewed interest is undoubtedly 
a consequence of the many attendant advantages which the modal 
synthesis scheme offers over that of the direct method, particularly 

in dynamic analyses of large complex structural systems. For this 
_ 

More generally, any suitable set of lineaxly independent 
shape functions and not necessarily the calculated natural 
modes, as will be pointed out later. 
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reason a brief historical synopsis of this method seems appropriate 
here . 

The method which is now referred to in various terms as 

component mode synthesis, modal synthesis, or modal coupling was 

implicit in the early work of Scanlan (Ref. 6-3), among others. He 

used normal coupled vibration modes of airplane components as 

generalized coordinates in a Rayleigh-type analysis of the transient 

response resulting from landing impact. Later Hunn (Ref. 6-k) 

presented a similar procedure for calculating the free vibration modes 

of an aircraft. Both these authors were motivated by the need for 

reducing the system eigenvalue problem to an order suitable for 

hand calculation. The mechanics of component mode synthesis were 

quite extensively developed in an early work of MacNeal (Ref. 6-5). 

However, because his work was stated primarily in terms of electrical 

analogies, being addressed to electrical engineers, it generally 

remained "inaccessible" to structural dynamicists. In i 960 

Hurty (Ref. 6-6) described the rudiments of component mode synthesis 

in terms more familiar to structural dynamicists and illustrated its 

use by applying it to a simple frame structure, thereby making it 

"available" to structural dynamicists. A comprehensive account of 

many of the mathematical aspects of component mode synthesis as 

applied to dynamic analyses was given by Hurty several years later 

(Ref, 6-7).* Central to Hurty’ s scheme was the separation of the 

calculated component modes into fixed constraint normal modes , 

_ 

A condensed version of this JPL report is also available as 
"Rynamic Analysis of Structural Systems Using Component Modes ," AIAA 
Journal , Vol. 3, April 1965 , PP* 678 - 685 . 
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constraint inodes, and rigid-body modes. A "Branch Mode" analysis 
scheme was given by Gladwell (Ref. 6-8) at about the same time. This 
method featured the imposition of a sequence of sets of constraints 
on the system, each set being chosen so that for each constrained 
configuration only one component or "branch" could vibrate elasti- 
cally. These branch modes and appropriate rigid-body modes were 
then employed in a Rayleigh type analysis of the complete system. 
Goldman (Ref. 6-9)* used rigid-body modes and free-free elastic 
modes of components for synthesis. Bamford (Ref. 6-10) included 
so-called "attachment modes" in the selected mode sets to account 
for concentrated loads at unconstrained points of the complete 
structure. An application to a launch vehicle was given by Mc- 
Aleese (Ref. 6-11). Bajan and Feng (Ref. 6-12) suggested an 
iterative procedure, which they termed modal substitution, for 
improving the system modes and frequencies calculated by partial 
modal synthesis. These works, for the most part, represent the 
developments pertaining to modal synthesis available in the open 
literature at the time the comparable work to be described herein 
was initiated. More recent additions to this literature, appearing 
while this work was in progress, are given in Refs. 6-13 to 6-19. 

Chronologically, the direct method of natural mode vibration 
analysis was first developed to serve as a stand-alone procedure 
for problems having up to about 200 degrees of freedom. With a 
view primarily toward allowing significantly more degrees of freedom 
£ 

A condensed version, under the same title, is given in AIAA Journal , 
Vol . T, June 1969, pp. 1152-1154. 
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in the finite-element discretization without a corresponding in- 
crease in computer storage requirements a component mode synthesis 
method was next developed. The analytical bases of both these methods 
as developed herein are believed to be rather dif ferent in approach 
and to contain several new and novel features: Both analyses enforce 

inter-substructure deflection compatibility according to a new 
algorithm conceived by Walton and Steeves (Ref. 6-20) in which 
independent system coordinates are established by solving an eigen- 
value problem associated with a symmetric matrix formed from the 
coefficients of the constraint equations. The concept of a gyro- 
scopic finite element is further introduced. Based on this artifice 
both analyses are extended to include the effects of gyroscopic 
coupling forces induced by large rotating components such as 
propellers, proprotors, or fans. Several additional features are 
included in the modal synthesis formulation. A "hybrid" 
representation can be employed for the substructures whereby some 
substructures may be described in terms of modal coordinates 
established on the basis of selected component modes while the 
remaining substructures are described in terms of discrete 
coordinates. Substructure modal information, either for free-free 
or constrained boundary conditions, can be specified in the form 
of calculated or measured natural modes, static deflection shapes, 
assumed deflection shapes, or any combination of these. These 
deflection shapes need not be orthogonal or normalized in any 


consistent manner. 



Both the direct and component mode synthesis analyses pre- 
sented herein are, in principle, applicable to a structural 
idealization based on any type of finite element (segments of beams, 
plates, shells, etc.)* The computer programs based on these analyses* 
are, however, limited to structures which admit of a ’’stick" model 
representation. The latter refers to a structural idealization in 
which the structure is taken to be composed of an assemblage of 
beams, springs, and rigid bodies. Since many structures of practical 
interest can be represented in this manner for dynamic analyses the 
corresponding computer programs have a relatively wide range of 
engineering applicability. 

The Mathematical. Model 

(a) Nature of the Finite-Element Stiffness Matrix Method of 
Structural Analysis 

The idea of replacing a continuous structure by pieces, 
generating the stiffness matrix for each piece, and from these 
assembling the stiffness matrix for the complete structure was 
originally suggested by Levy (Ref. 6-21). However, Turner, 

Clough, Martin, and Topp (Ref. 6-22) are generally credited with 
developing the concept to the point at which it was amenable to 
automation on digital computers, thereby firmly establishing the 
procedure which is now referred to as the finite element stiffness 
_ 

These are given in Appendix H. Only the case of zero gyroscopic 
coupling has as yet been programmed, however. 




391 


or displacement method of structural analysis. Briefly, the finite 
element method as applied to the analysis of complex structural 
systems is based on replacing the structure by an idealization 
consisting of a large number of small discrete "standard" structural 
elements (such as beam, plate, or shell segments) which are inter- 
connected at discrete node points, the loading on each element being 
represented by a set of discrete forces and/or moments acting at the 
node points on the boundary of the element. Element force-deflection 
relationships, established on the basis of some simple assumed 
deformation which relates internal displacements of the element to 
its nodal displacements, lead to a set of stiffness influence 
coefficients, or stiffness matrix, which embodies the elastic 
characteristics of the element. The individual unassembled elements 
are combined to form a mathematical model of the complete structure 
by conceptually joining all elements at their node points in a 
manner which insures that the elements are in equilibrium subject 
to the external loads and the forces they exert on each other and 
that no discontinuities of deformation occur at element juncture 
points. These conditions are generally only approximately satisfied. 
In the stiffness method continuity of deformation is satisfied 
apriori while the equilibrium requirements are implicit in the 
mechanics of the method. The resultant system stiffness matrix 
then defines the elastic characteristics of the structure in terms 
of force-deflection relationships for a finite number of 
coordinates (nodes). These force-deflection relations constitute 
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a set of algebraic equilibrium equations , having deflections as 
unknowns, which approximate the differential equations of equilibrium 
for the elastic continuum. The interested reader will find detailed 
considerations relating to the finite-element method of structural 
analysis in several excellent books (see, for example. Refs. 6-23 to 
6-25). 

(b) The "Stick" Model Structural Representation Employed in the 
Computer Programs 

The analyses and associated computer programs for natural mode 
vibration analysis by direct and component mode synthesis techniques 
are based on a substructures approach in which the structure is 
first partitioned or divided into several separate smaller components 
or substructures, such as schematically depicted in Fig. 6-1. Based 
on the known inertial and elastic properties a finite-element math- 
ematical model of each substructure is then established. If the 
direct method of vibration analysis is to be employed the inertial 
and elastic characteristics of the substructures remain in the dis- 
crete coordinates established by the finite-element modeling process. 
If the intent is to employ model synthesis the modes of each sub- 
structure are first determined on the basis of the discrete-co- 
ordinate mathematical model. A selected few of the modes from 
each substructure modal set are then tised in an assumed-modes type 
procedure to effect a coordinate transformation to distributed (mod- 
al) coordinates. In either case the mathematical model of the 
complete structure is arrived at by reassembling the 
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components in a manner consistent with the equations of constraint 
which insure deflection compatibility at the interfaces of the 
components. 

The "stick" model approach to dynamic analysis as embodied in the 
computer programs assumes that the structure is composed of an 
assembly of beams, springs, and rigid bodies. Use of these 
structural building blocks to represent an aircraft structure for a 
symmetric vibration analysis is schematically illustrated in Fig. 

6-2.* The fuselage /engine combination, the wings, and horizontal 
tails are replaced by equivalent nonuniform beams lying along the 
calculated elastic axes of the respective components ; the wing and 
horizontal tail carry-through structures are treated as massless 
uniform beams (i.e., beam-springs ), their mass being included with 
the mass of the fuselage/engine beam; the vertical tails are taken 
to be rigid bodies rigidly attached to the fuselage /engine beam. 

Since the substructures are treated as distinct and separate 
components in a sub structuring methodology their structural 
properties are most conveniently defined relative to axes local 
to each component. The specification of the mass and stiffness 
matrices corresponding to each of the three types of structural 
members employed in the stick model representation of a structure 
herein is the subject of the following subsections. 


# 

The silhouette corresponds to that of an actual aircraft for 
which the stick model shown was used to represent the structure 
for symmetric natural mode analysis. 
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Beam Substructures : The beam elastic properties are defined in 

terms of the distribution of flexural, torsional, and axial stiffness 
(El, GJ, and AE, respectively) along the local elastic axis. The 
continuous distortion of the beam is approximated by specifying both 
the deflection and rotation at a number of discrete points or 
stations along the beam. A beam segment or element is defined to be 
the length between two such stations. The stiffness of each element 
is assumed to be constant and given by the average value of the 
stiffnesses at the two adjacent stations. The distributed mass 
of the beam is discretized by simply replacing the distributed mass 
by statically equivalent concentrated masses at the discrete stations 
along the beam, each mass having both translational and rotational 
inertia. This lumped mass approach is consistent with the fact 
that weights data is generally available in a lumped form wherein 
the inertial properties given are the total weight , center of 
gravity location, and moments and products of inertia of discrete 
small regions of a structure . In contrast , use of the celebrated 
"consistent mass matrix" of Archer (Ref. 6-26) would require a 
knowledge of the mass distribution. 

The mass and stiffness matrices of an unrestrained arbitrarily 
oriented beam element are each of order 12 x 12. If the local 
coordinate axes are chosen to coincide with the principal axes of 
the cross section the 12 x 12 stiffness matrix can be expressed in 
terms of 4 x 4 and 2x2 submatrices located on the principal 
diagonal. Should the center of gravity of the lumped masses lie 
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on the elastic axis of the beam segment a similar partitioning is 
possible for the mass matrix. We will assume this to be the case 
for the present and indicate later how to account for any mass 
coupling terms. The manner in which the computer programs generate 
these submatrices for a beam substructure is illustrated below with 
reference to the two-element beam shown in Fig. 6-3. 

(l) Beam Bending - The stiffness matrix for vertical bending 
is put into the partitioned form: 

w | 0 

[A] } [B] 
s 

“ — J- — - 

[B] T ! [C] 

_ 1 _ 

where 



v 


( 6 - 1 ) 



(6-2) 
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(6-4) 


The bending displacements and slopes have each been grouped together 
and placed in the order shown in Eq. 6-1 for computational 
convenience. Extension to additional elements is apparent in the 
distinctive forms of [A], [B] , and [C]. The corresponding inertia 


matrix is given by 
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(6-5) 


Similar matrix expressions describe lateral bending. 

(2) Beam Torsion - The torsional stiffness matrix is given by 



( 6 - 6 ) 


and the inertia matrix by 
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( 6 - 7 ) 


Extension to more elements is obvious. 

(3) Beam Axial - The stiffness matrix describing axial defor- 
mation has the form 



(6-8) 


while the inertia matrix is 



U 1 u 2 U 3 

\ 

m 2 



( 6 - 9 ) 
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Again, the extension to additional elements is obvious. 

Spring Substructures : In many instances actual springs may 

comprise some of the structural components of a structure (or various 
members may be treated as one-degree-of- freedom springs ) . These 
springs are defined by 1 x 1 stiffness matrices having spring 
constants as matrix elements and associated lxl null inertia 
matrices. The use of these springs will be illustrated in a quali- 
tative manner later. 

It is often convenient to account for the elasticity of short 
beam members while including their inertia with other members 
(such as suggested for the wing and tail carry-through structures in 
Fig. 6-2). A massless, uniform beam segment is employed for this 
purpose. Since only the elastic properties of this beam segment are 
considered it has the character of a spring and it seems appropriate 
to include its description here. For descriptive purposes this 
massless beam segment will be referred to as a "beam-spring" . For 
the particular coordinate ordering shown in Fig. 6-4 the associated 
12 x 12 stiffness matrix has the form given in Fig. 6-5. The 
corresponding inertia matrix is taken to be null. The use of the 
beam-spring is illustrated qualitatively later in this chapter and 
in the detailed example in Appendix E. 

Rigid-Body Substructures : Various components can often be 

treated as rigid in dynamic analyses. For example: ordnance, 

external fuel tanks, engine /nacelle combinations, etc. With respect 
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to a local axis system located at the center of gravity the inertia 



The corresponding stiffness matrix is of course null since a rigid 
body has no strain energy associated with its motion. 

It may often be necessary to account for either the transla- 
tional or rotational rigid-body motion of a beam substructure while 
neglecting the corresponding elastic motion. This situation is 
easily accommodated by the availability of this rigid-body element , 
as will be demonstrated somewhat later. This expedient will also 
be exercised in the numerical examples given in Appendices E and F. 
(c) Formation of the Mass and Stiffness Matrices for the Partitioned 
Structure 

The "building blocks" for constructing the mass and stiffness 
matrices corresponding to each substructure based on a "stick" 
model structural representation have been given above. Once the 
substructure mass and stiffness matrices have been determined the 


mass and stiffness matrices for the partitioned structure are given 
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by the composite matrices containing as submatrices the mass and 
stiffness matrices of the individual substructures on the principal 
diagonal. These composite matrices are denoted by [M] and [K] , 
respectively. For the "stick" model shown in Fig. 6-6, for 
example , both the mass and stiffness matrices for the partitioned 
structure (ie., [M] and [K] ) would have the general form shown in 
Fig. 6-7.* Each block in Fig. 6-7 corresponds to a matrix. The 
ordering of blocks within a substructure and the ordering of 
substructure matrices within [M] and [K] is, in principle, arbitrary. 
Since the mass and stiffness matrices for each substructure have 
been generated independently, no inter-substructure coupling will 
exist in [M] and [K] . However, intra-substructure coupling (ie., 
coupling between the blocks within a substructure) will generally 
exist. For example, if the sectional centers of gravity of the wing 
or tail surfaces are displaced horizontally from their local elastic 
axes mass static unbalance terms are introduced which will couple 
vertical bending displacement with torsion. This will couple the 
bending and torsion blocks of the wing or tail substructures in [M], 
Components idealized as rigid bodies can be treated as discrete 
substructures or , alternately , have their inertia properties combined 

with the inertia matrix associated with the elastic member to which 
they are attached. If, for example, the main landing gear 
assembly of the aircraft shown in silhouette in Fig. 6-6 were treated 

# ----- ■ - - 

The "stick" model of Fig. 6-6 and the particular freedoms indicated 
in Fig. 6-7 would be appropriate to a symmetric vibration analysis. 





as a rigid mass and its inertial properties combined with the for- 
ward fuselage beam, the vertical bending and axial rigid-body blocks 
of the forward fuselage substructure in [M] would be coupled. H 
Coupling terms would also arise within the vertical bending block, 
leading to a non-diagonal mass matrix for beam bending. Inter- 
and intra-substructure coupling terms arise in the stiffness matrix 
of the partitioned structure, [K] , when the stiffness characteristics 
of physical springs are combined with the stiffness matrices of 
members to which they are attached rather than treated as separate 
substructures. The preceding remarks are elucidated below in 
several simple illustrative examples. 

Wing Static Unbalance : Consider the sectionalized wing plan- 

form shown in Fig, 6-8. The sectional, (lumped) masses, bending 
inertias, and torsional inertias (about the eg) are denoted by 
nn, RI^, and 1^, respectively. The perpendicular distance between 

the sectional eg locations (assumed to be in the wing chord plane) 
and the wing elastic axis are denoted by e^. The kinetic energy 
of each section, T^ , expressed in terms of displacements and 
rotations of the elastic axis station, has the form indicated in 
Fig. 6-8. Substituting each of these expressions into Lagrange’s 
equation and performing the appropriate differentiations leads to 


Figs. 6-6 and 6-7 are appropriate to a symmetric vibration analysis. 
For an anti-symmetric analysis the lateral bending and torsion 
blocks of the substructure would be coupled. 
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the coupled bending-torsion mass matrix shown in Fig. 6 - 9 . By- 
way of illustration assume that Fig. 6-8 is appropriate to the wing 
of the aircraft depicted in Fig. 6-6. Then [M] would have the form 
shown in Fig. 6 - 7 , the first two blocks of substructure #3 being 
given by twice the mass matrix of Fig. 6-9. If the sectional eg 
were also displaced vertically from the wing elastic axis (ie., not 
in the wing chord plane) additional coupling terms would arise and 
the vertical bending, torsion, and fore-and-aft bending blocks of 
substructure #3 would be coupled. 

Alternate Treatment of Rigid Bodies : As an alternative to 

treating each rigid body as an individual substructure the inertial 
properties of the rigid body (total mass lumped at the eg and 
moments and products of inertia relative to axes fixed in the body 
at the eg) can be combined with the inertia matrix of the elastic 
member to which it is attached. This alternative scheme has the 
attendant advantage of not explicitly introducing the degrees of 
freedom associated with the rigid body into the resulting eigenvalue 
problem. 

(l) Rigid Attachment - If the rigid body is, or can be taken 
as, rigidly attached to an elastic substructure other than a beam- 
spring the procedure consists in suitably modifying the kinetic 
energy expression for the substructure to include the effects of the 
concentrated mass, inertia, and static unbalance about its point of 
attachment. A formal procedure for effecting such a modification in 
the general case of an arbitrarily oriented 3ix-degree-of-freedom 
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rigid body is given in Appendix A. In many instances the necessary 

additions to the mass matrix of the component to which the rigid 

body is attached can be obtained directly without recourse to the 

general results of Appendix A. For example, consider the situation 

depicted in Fig. 6-10. Suppose one wishes to combine the inertial 

properties of the center-line fuel tank, taken as a rigid body, 

with the inertia matrix of the fuselage beam. Assume that each 

fuselage mass has both vertical bending and longitudinal degrees of 

freedom. If the principal inertia axes of the fuel tank are 

parallel to the principal geometric axes of the fuselage beam the 

kinetic energy of the tank expressed in terms of the motion at the 
"fch 

n mass station has the form given at the bottom of Fig. 6-10. 
Substituting this expression into Lagrange's equation gives the 
matrix of additional terms which must be added to the (diagonal) 
mass matrix for the fuselage beam. The final mass matrix is given 
in Fig. 6-11. 

(2) Flexible Attachment - If the fuel tank of Fig. 6-10 were 
attached to the fuselage beam through a flexible member which 
could be treated as a spring substructure (either an actual spring 
or a beam-spring) the inertia properties of the tank could be 
combined with the null inertia matrix of the spring substructure 
using a procedure similar to that described in (l) directly above. 

Alternate Treatment of Actual Springs : For convenience 

actual springs can be divided into those which have one end tied to 
ground and those which have both ends "free" in the sense that 
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while both ends attach to some component neither end is tied to 
ground . 

(1) Springs Having One End Tied to Ground - If the spring 
attachment point on the structure is at a mass station the spring 
constant(s) can be simply added to the appropriate diagonal term(s) 
of the stiffness matrix of the component. If the point of attach- 
ment is not at a mass station coupling among the blocks within the 
substructures comprising [K] will occur. In the latter case it is 
sometimes convenient to introduce an auxiliary massless station at 
the spring attachment point. 

(2) Free-Free Springs - The spring constants of springs which 
have neither end tied to ground can be combined with the stiffness 
matrices of the substructures to which they are attached by writing 
the potential energy of the springs in terms of the coordinates at 
the points of attachment. A simple illustration of the use of this 
expedient in the realm of launch vehicle dynamics may be given with 
the aid of Fig. 6-12. In dynamic analyses of launch vehicles the 
dynamic effects of sloshing propellants are usually included by 
introducing a dynamically equivalent mechanical analogy, composed of 
fixed and oscillating masses connected to the tank by springs or 
pendulums , to account for each important vibration mode of the 
liquid as a degree of freedom (Ref. 6-27). This equivalent lumped 
parameter mathematical model can then be combined with appropriate 
discrete element representations for other components of the vehicle. 
A spring-mass analogy is shown in Fig. 6-12. One such spring-mass 
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assembly is provided to represent the dynamic effects of sloshing 

in vertical bending (translation and rotation) and longitudinal 

oscillation. For illustrative simplicity, all three sloshing masses 

are taken to be attached to the same beam station*. The potential 

energy of the springs , expressed in terms of the deflections of the 
"til 

n beam station (w , 6 , u ) and the deflections of the slosh 

n n n 

masses (w, 9, u) , is given by V in the figure. Substituting 

s 

this expression into Lagrange's equation leads to the matrix shown 
in Fig. 6-13. [AK] is the matrix of spring stiffness terms which 
must be added to the stiffness matrix for the beam. 

Establishing the System Equations of Motion 

Denoting the composite matrices containing the mass and stiff- 
ness matrices of the individual substructures as submatrices on 
the principal diagonal by [M] and [K] , respectively, the Lagrangian 
of the partitioned structure can be written as 

L = | {z} T [M] {z} - | {z> T [K]{z> (6-11) 

where {z} is a column matrix containing the coordinates of all the 
substructures. A consequence of any sub structuring procedure is 
the introduction of coordinates which are not generalized coordinates 
in the Lagrangian sense but are related by equations of constraint 
which must be imposed to restore geometric compatibility at the 

The non-sloshing portion of the fluid (not shown) is treated as 
rigid and would simply be combined with the mass matrix of the 
beam. 
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interfaces. Since the matrices [M] and [K] in Eq. 6-11 have been 
established on the basis of such a substructuring procedure the 
coordinates forming the vector {z} are not independent with respect 
to the total system. Thus, before Eq. 6-11 can be substituted into 
Lagrange's equation a set of system-independent coordinates consis- 
tent with the equations of constraint must be established. Such co- 
ordinates can be arrived at in various ways. Herein, recourse is 
had to a method recently devised by Walton and Steeves (Ref. 6-20) 
in which solution of the constraint equations (ie. , the establish- 
ment of independent coordinates) is, in essence, reduced to computing 
the eigenvalues and eigenvectors of a symmetric matrix formed from 
the matrix of coefficients appearing in the constraint equations. 

For completeness, their work is briefly reviewed below. 

(a) The Method of Walton and Steeves for Establishing Independent 
Coordinates* 

The linear algebraic equations of constraint which are a 
consequence of enforcing deflection compatibility at the junctions 
of the substructures can be written as 

[C]{z} = {0} (6-12) 

where [C] is a constant matrix depending solely on the geometric 
configuration of the interfaces. In practice [C] is rectangular 

Their original work (Ref. 6-20) is also available as a NASA 
Technical Report (Ref. 6-28) . 
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with the number of rows generally much less than the number of 
columns. Since there are many coordinates (degrees of freedom) 
which do not appear in the constraint equations the matrix [C] 
is also characterized by the presence of many null (zero) columns. 
The vector {z} is identical to that appearing in Eq. 6-11. Usual 
practice when explicitly dealing with equations of constraint is to 
partition and solve Eq. 6-12 to define L of the z^ in terms of 
those remaining, where L is equal to the number of independent 
constraint equations. The method of Ref. 6-20 enjoys several 
advantages over the usual method. For complex structures, re- 
dundancies often appear in the equations of constraint (in the form 
of linear dependencies among rows of [C] ) which can cause problems 
(Ref. 6-29). The method of Ref. 6-20 eliminates the need to treat 
the case of redundant equations of constraint in any special manner. 
The basis of their method is a new mathematical theorem designated 
the "zero eigenvalues theorem" which expresses the solution of a 
set of linear homogeneous algebraic equations in terms of eigenvec- 
tors of a symmetric matrix constructed from the coefficients of the 
equations of constraint. The method proceeds as follows. Using 
[C] from Eq. 6-12 construct the symmetric matrix [E] defined by 

[E] = [C] T [C] (6-13) 


Solve the eigenvalue problem 
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(E]{x) = A{x} (6-l4) 

Let the resulting set of eigenvalues he arranged in the diagonal 
matrix [" A-^] and the corresponding eigenvectors in the modal matrix 
[X] . If [E] has no eigenvalues equal to zero the set of equations 
given by Eq. 6-12 has only the trivial solution. If zero is an 
eigenvalue of [E] of multiplicity P the most general solution of 
Eq. 6-12 is given by 


{z} = [6] {q} (6-15) 

Nxl NxP Pxl 

where [6] is a matrix formed from the columns of [X] ■which correspond 
to eigenvalues A^ having the value zero,* {z} is a column matrix 
containing all the substructure coordinates (see Eq. 6-ll), and 
(q) is a column matrix of arbitrary elements. With respect to the 
structural coupling problem of concern herein Eq, 6-15 may be 
interpreted as defining a suitable transformation matrix [3J to 
effect a transformation from dependent substructure coordinates to 
independent system coordinates. 

In summary, the problem of determining a suitable transformation 

matrix [3] is seen to reduce to that of determining a set of linearly 

independent eigenvectors of [E] corresponding to eigenvalues of [E] 

which are zero. The matrix [3] is usually not amenable to direct 
_ 

Since [E] is a symmetric matrix the eigenvectors corresponding to 
a multiple eigenvalue are linearly independent, though not necessar- 
ily orthogonal. 


<» 
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physical interpretation and the independent coordinates (q) are 
generalized coordinates in the strict sense of the word. In 
contrast , the independent coordinates obtained by proceeding in the 
usual manner indicated above are a subset of the original (physical) 
dependent coordinates. 

The manner of introducing the transformation and arriving at 
the system equations of motion will be outlined below for both the 
direct and component mode synthesis methods. 

(b ) Direct Method 

The Lagrangian for the partitioned structure is 

L = \ {z} T [M]{z} - \ {z} T [K]{z} ( 6-1 6) 

The constraint equations enforcing inter-substructure deflection 
compatibility have the matrix form 

[C ) {z } = {0} (6-17) 

Proceeding in the manner indicated above a transformation to 
independent coordinates is effected by substituting 

{z} = [BHq} (6-18) 

into Eq. 6-l6. This leads to 


L = | {q} T [B] T [M][8]{q} - | {q} T (B] T [K] [3] {q} 


( 6 - 19 ) 



Defining 


[M] = [f3] T [M][f3] 
[K] = [e] T [K][6] 


( 6 - 20 ) 


the Lagrangian for the assembled structure is 

L = | {4} t [m]{ 4> - | {g} T tK]{q> (6-21) 

Substituting Eq. 6-21 into Lagrange's equation for a conservative 
system 



( 6 - 22 ) 


there results 


(M]{q> + [K] {q} = {0} (6-23) 

as the free vibration equations of motion for the complete structure. 
[M] and [K] will be symmetric and, in general, positive semidef inite , 
that is , the eigenvalues of [M] and [K] are greater than or equal to 
zero. 

(c) Component Mode Synthesis 

As pointed out earlier component mode synthesis, employed as 
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a technique for natural mode vibration analysis of complex 
structural systems , is based on the concept of synthesizing the 
modes of the complete structure from the modes of conveniently 
defined substructures or components into which the structure is 
divided. The substructure modes are used as degrees of freedom, 
the discrete coordinates of each component being expressed in 
terms of its modes and normal (modal) coordinates which represent 
the contribution of each mode to a particular deformation. The 
expedient of reducing the degrees of freedom and thus the size of 
the final system eigenvalue problem is introduced by partial modal 
synthesis wherein only a relatively few of the modes from each 
component are employed. Selection of modes is generally based on a 
frequency cut-off criterion wherein all substructure modes below 
a given frequency of interest for the system are used in the 
synthesizing procedure and the others discarded.* The rationale for 
selection of modes on this basis follows from the fact that the 
higher calculated component modes (based on the discrete mathematical 
model) generally bear little resemblance to the corresponding modes 
of the continuous structure. Synthesis of the selected component 
modes to obtain the generalized coordinates for the structure is then 
effected by applying the equations of constraint reflecting the 
compatibility relations at the junctions of the substructures . 

Let the selected modes from each substructure be arranged 

£ 

A frequency cut-off criterion is, in effect, employed in 
the computer program. 


4 



/ . \ 

by columns in the matrices [U]' , the superscript denoting the 

assembly of modes from the i such substructure. The selected 

/ . \ 

substructure modes [U]' ' herein can consist of calculated natural 
modes, measured modes, static deflection shapes, assumed deflection 
shapes, or any combination of these. The restraint conditions 
employed for the substructure analyses need not correspond to the 
conditions which exist when all the substructures are assembled, 
in which case appropriate rigid-body modes (and possibly constraint 
modes) must be included in the selected set of modes. As indicated 
earlier these "modes" need not be orthogonal or normalized in any 
consistent manner. Static deflection shapes, assumed modes and 
rigid-body modes need no special consideration but are simply 
treated as elastic modes having zero frequencies . In terms of 
these selected mode sets the transformation from discrete sub- 
structure coordinates z^ to substructure modal coordinates 
can be written as 


lz } 
tzj 


( 1 ) 

( 2 ) 


[U] 


( 1 ) 


[U] 


( 2 ) 


- 


(z> 


(NS)J 




V 1J ' 



(S} (2) 


< 

1 

[UJ (HS) 


'■w 

& 

CO 

V— ^ 


( 6 - 24 )* 


NS = total number of substructures into which structure has been 
partitioned. 



or, in condensed notation, 


{z} = iu] {Q (6-25) 

Nxl NxNSM NSMxl 

The number of rows in the system modal expansion matrix [U] is equal 
to the total number of discrete degrees of freedom for all the 
substructures; the number of columns in [U] is equal to the total 
number of selected modes (NSM). Substituting Eq. 6-25 into the 
Lagrangian of the partitioned structure as given by Eq. 6-11 gives 

L = | {£} T [U] T [M][U] {£} - j {£} T [U) T [K][UHU (6-26) 

where [M] and [K] are numerically identical to the corresponding 
matrices in the direct method. Note that if all the mode sets 
[U] ^ are made up of free-free orthonormal modes we have 

[UJ T [M][U] = [I] (6-27a) 

and 

[U] T [K][U] = rail] (6-27b) 

p 

where [I] is the unit matrix and the matrix *.] has the squares 
of the substructure natural frequencies (corresponding to the 
selected modes) on the main diagonal. The Lagrangian given by Eq. 
6-26 will then reduce to a quadratic form having only squared terms. 
Herein, the modes need not be orthogonal or normalized in any 



particular manner so the (generally restrictive) simplifications 
given in Eqs. 6-27 are not employed. 

Since equations of constraint have not yet been applied, the 
coordinates ^ in Eq. 6-26 are not generalized system coordinates in 
the Lagrangian sense. The equations of constraint reflecting inter- 
substructure deflection compatibility in physical (discrete) 
coordinates are identical to those appearing in the direct 
method, that is, 


[C]{z) * {0} (6-28) 

Substituting the transformation of Eq. 6-25 into Eq. 6-28 the con- 
straint equations in terms of the selected modal coordinates 
have the form 



[C][U]{U = (0> 

(6-29) 

or 

[D]{£} = {0} 

(6-30) 

where the definition of 

[D] follows from Eq. 6-29. 

Proceeding in 

the spirit of Ref. 6-20 

we form the symmetric matrix [E'l defined 

by 

[E'l = [D] T [D] 

(6-31) 

* 

Primes are used to distinguish from similar symbols used in 
describing the direct method to represent matrix quantities which 


will be different numerically. 



and solve the eigenvalue problem 


[E'Hx’} = X'{xV> 


( 6 - 32 ) 


From the resulting matrix of eigenvectors [X* ] select those columns 
corresponding to eigenvalues having the value zero and form a matrix 
[8* ] . A suitable transformation from substructure modal coordinates 
to system generalized coordinates (which restores geometric com- 
patibility at the interfaces of the substructures) is then given by 

(O - [g’Hq'} (6-33) 


Substituting Eq. 6-33 into Eq. 6-26 gives 


L = | {q , ) T [8 , 3 T [U] T [MHU][e , Hq , > 

- \ {q , } T [e , ] T [U) T [K] [U][B']{q'} 


(6-34) 


Defining 


[6 , ] T [U] T [M] [U] [8' ] = [M* ] 
13' ] T [U] T [K] [u] [BV] = [K*] 


(6-35) 


Eq. 6-34 becomes 
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L = | (4* } T [M' H4' } - | {q'} T [K' ]{<!'} (6-36) 

where {q 1 } is a column vector of independent coordinates. Sub- 
stituting Eq. 6-36 into Lagrange's equation (Eq. 6-22) yields 

[M']{q'> + [K’]{q'> = {0> (6-37) 

as the free vibration equations of motion for the assembled 
structure. Eq. 6-37 is seen to be of the same form as Eq. 6-23. 

[M' ] and [K' ] will be symmetric and, in general, positive semi- 
definite . 

Some Comments on the Form of the Modal Expansion Matrix: Sub- 

structures treated either as rigid bodies or springs have no modal 
expansion associated with them since their degrees of freedom can 
not be reduced any further. To maintain the definition of such 
substructures in discrete coordinates the corresponding modal 
expansion matrices [U]^^ are taken to be unit matrices: 

Rigid body Rigid body 

or spring or spring 

{z} = [IHO (6-38) 

[I] is a unit matrix of order equal to the number of degrees of 
freedom of the rigid body or spring substructure (up to 6 for a 
rigid body and 12 for a spring). It is in fact possible to use an 
"identity expansion" of the form given in Eq. 6-38 for any 


A 
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substructure. This provides the basis for what might be termed 

a hybrid method of analysis in which the structure is described in 

terms of both discrete and modal coordinates. The necessity for 

such a combined approach would, for example, arise in a case in 

which structural information pertaining to some component were 

available only in the form of natural vibration modes.* 

/ • \ 

The matrices [U]' ' contain the selected modes from each 
substructure mode set. If no intra-substructure coupling exists 
each of the expansion matrices [U] ^ will itself be composed of 
submatrices situated along the principal diagonal in a manner 
similar to that of Eq, 6- 2k. In general, some of these submatrices 
will be coupled. By way of illustration the system modal expansion 
matrix [U] for the airplane of Fig. 6-6, assuming the only intra- 
substructure coupling to be between vertical bending and torsion 
for the wing and horizontal tail, would have the form shown in 
Fig. 6-lU. This figure also indicates the manner in which the 
"identity expansion" is employed for rigid-body and spring sub- 
structures and for rigid-body motions of beams which have no 
corresponding elastic motion. 

As a concluding comment it is to be noted that if full modal 
coupling is employed the resultant mathematical model based on 
modal coordinates is completely equivalent to a mathematical model 

_ 

In such an instance recourse would have to be made to the ortho- 
gonality conditions given in Eqs. 6-27 in order to remain 
independent of the (unknown) mass and stiffness properties. 


«S 



based on discrete coordinates in that the resultant calculated 
modes and frequencies will be identical. 

Solution of Equations of Motion 

(a) Reduction to Standard Eigenvalue Form 

The equations of motion for natural mode vibration analysis 
by either the direct or component mode synthesis methods can, with- 
out any loss of generality, be written in the matrix form 


[M]{q> + [K]{q> = {0} (6-39) 

Assuming a solution of the form q - q Q e^ W ^ Eq. 6-39 assumes the 
form 


[K]{q Q } = W 2 [M]{q Q } (6-HO) 

by removal of the time factor e^ W ^. Before the eigenvalue 
problem defined by Eq. 6-40 can be solved it must be reduced to 
the standard eigenvalue form 

[A] (x) = A{x} (6-Ul) 

If [M](or [K] ) is positive definite, Eq. 6-UO can be reduced to 
this form by simply multiplying through by the inverse of [M] 

(or [K]), in which case X would be identified with w (or 1/w ). 
The matrix [A] arrived at in this manner would, in general, be 
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nonsymmetric . Since there are several attendant advantages which 
may be realized if the problem is formulated in symmetric eigenvalue 
form (cf. Refs. 6-30 and 6-31) an alternative approach would be to 
reduce Eq. 6-40 to the form of Eq. 6-4l in a manner which leads to 
a symmetric matrix [A]. It will be seen that if both [M] and [K] 
are positive semidefinite the process of reducing Eq. 6-40 to 
standard eigenvalue form leads naturally to a symmetric formulation. 
Algorithms for solving either the symmetric or nonsymmetric eigen- 
value problem axe well documented in the literature ( see , for 
instance. Refs. 6-30 to 6-32). The particular procedure employed 
herein is based on the algorithm embodied in a NASA-Langley computer 
program designated BJD5* which reduces Eq. 6-40 to a symmetric 
eigenvalue form and employs the Jacobi method for finding 
eigenvalues and eigenvectors. 

The reduction of Eq. 6-40 to a symmetric eigenvalue form 
consists, in essence, in converting either the mass or stiffness 
matrices to diagonal form by a transformation of variables using 
the eigenvectors of the mass or stiffness matrices as the 
transformation matrix. Since [K] will be singular in any free- 
free vibration analysis due to the presence of unrestrained 
rigid-body degrees of freedom it has generally been assumed that 
[M] is positive definite. In this instance the procedure for 

_ ___________ 

Barbara J. Durling #5* 
t 

The Jacobi method is a stand-alone procedure for symmetric 
matrices which leads to all eigenvalues and eigenvectors 
simultaneously , 


J 
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reducing Eq. 6-1+0 to symmetric eigenvalue form is well known.* In 
general, however, [M] will also he singular and the usual procedure 
is not directly applicable. The transformation of Eq. 6-1+0 to 
symmetric eigenvalue form in the more general case in which the 
mass matrix [M] is positive semidefinite has been given by Walton 

•j- 

and Durling (1966) in what represents a significant extension of 
the usual procedure. Their method combines the usual procedure for 
diagonalizing [M] with a reduction scheme to reduce [M] to a 
smaller, positive definite diagonal matrix. The analytical basis 
of their procedure is reviewed below for completeness. 

The real symmetric matrix [M] can be reduced to a diagonal 
matrix [' N y-] through the orthogonality transformation 

[Q] T [M][Q] = (6-1+2) 

where [Q] is a square matrix the columns of which are the eigen- 
vectors of [M] and the diagonal elements of f^VU] are the eigen- 
values of [M] . Thus , substituting the coordinate transformation 


Crandall, S. H. : Engineering Analysis, McGraw-Hill Book Co., 

New York, 1956, pp. 121-122. The triangular decomposition scheme 
of Cholesky (Ref. 6-30) leads to an alternate procedure for effect- 
ing a transformation to symmetric eigenvalue form. 

Unpublished work of William C. Walton, Jr. and Barbara J. Durling 
of the Structural Mechanics Branch of NASA-Langley . Their 
procedure is embodied in computer program BJD5 written by Barbara 
Durling. This program forms part of the computer program 
"packages" for natural mode vibration analysis as listed in 
Appendix H. 
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Cq Q } ■ [Q](n> 


(6-43) 


into Eq. 6-40 and premultiplying by [Q] 


T 


leads to 


[Q] T [K] [Q]{ri> - w 2 [Q] T [M](Q3 tn> (6-44) 


or. 


[S]{r)} - w 2 ['-U^]{r)} 


(6-45) 


where the definition of [S] follows from Eq.. 6-44. If [M] is 
positive semidefinite some of the eigenvalues vl will be zero. 
Assume that all of the eigenvalues which are zero axe arranged 
so that they constitute the lower diagonal elements of the matrix 
Eq.. 6-45 can then be written in the partitioned form 


[s u ] 
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i l 

CO 
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m > 
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_ \ 

| [0] 
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[S 2 iJ 

[s 22 ] 
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[o] j 

1 [03 



(6-46) 


Since [S] is symmetric (an orthogonality transformation preserves sym- 
metry), both [S 11 ] and [S 22 ] are symmetric and [S 21 ] is the transpose 


Either through an appropriate re-arrangement of rows and columns 
or "automatically" by employing an eigenvalue routine which 
arranges the eigenvalues in descending order according to magnitude 
(such as the Jacobi method). 


A 
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of [S^ 2 ]. The"inertialess"coordinates {rig} can now be mathematically 
removed from the eigenvalue problem in the manner suggested by 
Turner, et. al. (Ref. 6-22) for free nodes (ie. , nodes which have 
neither applied loads nor specified deflections) in static 
analyses.* Expanding Eq. 6-46, 

[ S ll]{ n i> + * S 12^ n 2* = 01)2 ^^Hni} (6-47a) 

[s 2 i]{ni> + [s 22 Hn 2 > - { 0 } (6-47b) 

Solving Eq. 6-47b for {ri 2 } implies the coordinate transformation 

{n 1 > (6-48) 

Substituting Eq. 6-48 into Eq. 6-46 gives 

[ [s u 3 “ c s i 2 ] [s 22 ]_1 [ s 2i :i J {n i } = “ 2 c " y r Hr, i } (6-49) 

or, more simply, 

ts] fn x > = (6-50) 

The removal of inertialess coordinates from Eq. 6-46 may also be 
interpreted as a special case of the Guyan reduction (Ref. 6-33). 


In) = 


[i] 


- ts 22 ] ts 21 ] 





where [S] is the "reduced" stiffness matrix. Note that [S] is 
symmetric. Since all submatrices of the original generalized 
stiffness matrix appear in [S] there is no loss of structural 
information in the condensation procedure . Final reduction to 
symmetric eigenvalue form is accomplished by applying an ortho- 
gonality transformation to using the coordinate transforma- 

tion 


{n x > = 






(6-51) 


Substituting Eq. 6-51 into Eq. 6-50 and premultiplying by 


V 




gives 


\l_ 

M 1 J 


[S] 






{r^} ■ oj 2 [i]{n 1 ) 


(6-52) 


or, finally 


[s] {n x > = w 2 (n 1 > (6-53) 

(b) Interpretation of Eigensolutions 

Solution of the eigenvalue problem given in Eq. 6-53 leads to 
a set of eigenvalues u>. and associated eigenvectors iru >. • Since 

1 XI 

2 

an orthogonal transformation preserves eigenvalues the Uh are squares 
of the desired system natural frequencies. The eigenvectors {r^h 
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are generalized mode shapes and must he transformed back to the 
original coordinates {zK for physical interpretation. For the 
direct method this back-transformation is given by 


{z}. - [$] [Q] 



( 6 - 54 ) 


while for component mode synthesis it is 

[13 


iz\ = [u][e'][Q , 3 


- [S'g ]" 1 [S^l 


iX JL. 




( 6 - 55 )* 


Since no transformation to a global system of coordinates has been 
employed the mode shapes (zh are defined in local substructure 
coordinates. If desired, a transformation to a global set of 
coordinates could be subsequently carried out. 

The substructuring concept, as employed in either the direct 
or component mode synthesis methods, is applied to a tilt-rotor 
aircraft configuration in Appendix E to serve as an illustrative 
example of the manner of forming the substructure mass and stiff- 
ness matrices and setting down equations of constraint. 


The primes have been reintroduced for the purpose of distinguish- 
ing between common symbols which represent matrix quantities which are 
different numerically. 


A 
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Reducing the Order of the Constraint Eigenvalue Problem in the 
Direct Method 

Three eigenvalue problems require solution tinder vibration 

analysis by the direct method as outlined above. By far the 

largest of these is that associated with the matrix product 
T 

[C ] [Cl, [C] being the matrix of coefficients of the constraint 

equations. Oftentimes there are many coordinates (degrees of 

freedom) which do not appear in the constraint equations , leading 

to a matrix [C] having many columns which are identically zero. 

Each such null column in [C] will lead to a similarly positioned 

T 

null column in the product [C] [C] and a corresponding null row. 
Through an appropriate re-arrangement of rows and columns a 
significant reduction in the size of the eigenvalue problem which 
must actually be solved in such instances can be achieved.* The 
analytical basis on which such a reduction can proceed is given 
below. 

As before, from the constraint equations 


[C]{z> = {0} 


( 6 - 56 ) 


form the matrix [E] defined by 

[E] = [C] T [C] 


( 6 - 57 ) 


This possibility was pointed out to the author by William C. 
Walton, Jr. of the Structural Mechanics Branch at NASA- Langley . 



and the associated eigenvalue problem 


[E] {x} = X{x} (6-58) 

Let [S] be a matrix which when premultiplied by [C] will re-arrange 
the columns of [C] so that all null columns are at the right.* 
Introducing the transformation 

(x} = [S]{y> (6-59) 

into Eq. 6-58 and premultiplying by [S] ^ gives 


[S]" 1 [E][S]{y} = X[S]”^[S]{y} (6-60) 


Defining 


[B] H (6-6l) + 

Eq. 6-60 can be written as 

[B]{y} « X{y> (6-62) 


The construction of a matrix [S] having these properties and which 
is additionally orthogonal is given by Wilkinson (Ref. 6-30). 
Sciarra (Ref. 6-2) also describes formation of this matrix. 

t 

Eq. 6-6l defines a similarity transformation. 
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By virtue of the re-arranging properties of [S] , the transformation 
given hy Eq. 6-6l permits Eq. 6-62 to he written in the partitioned 
form 


lB ll ] 


[ 0 ] 


SO] 


[0] 



= X 



( 6 - 6 3 ) 


where {8 ^] is a square matrix of order equal to the number of 
finite (non-zero) columns in [C] . Expanding, Eq. 6-63 reduces to 
the two uncoupled eigenvalue problems 


tB n Hy i } ' xty i } 


(6-64a) 


[0] = X{y 2 > 


(6-64b) 


Since the eigenvalues and eigenvectors of a null matrix (Eq. 6-64b) 
are known apriori only the eigenvalue problem given by Eq. 6-64 a 
has to actually be solved. Let all the eigenvectors of [8 -q] and 
[0] be assembled by columns into the matrices [Y^] and [Y^] 
respectively. The matrix of eigenvectors associated with Eq. 6-63 
can then be written in the partitioned form 


| to] 

— — — i m uji H mm mm — « 

I 

[0] j [Y 2 3 


[Y] = 


(6-65) 
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The matrix of eigenvectors corresponding to the original problem as 
specified by Eq. 6-58 then follows from 

[X] = [S][Y] (6-66) 

The transformation matrix [63 is then formed from columns of [X] 
corresponding to zero eigenvalues* and used in the manner described 
earlier to enforce inter-substructure displacement compatibility. 

A Note on the Inclusion of Gyroscopic Coupling Effects in Natural 
Mode Vibration Analyses 

The gyroscopic coupling forces associated with large rotating 
components such as propellers or proprotors on propeller- or 
proprotor-driven aircraft or high-speed fans of turbo fan jet powered 
aircraft may have a non-negligible effect on the vibratory 
characteristics of an airframe relative to the case in which the 
spin is zero. One of the earliest attempts to analyze such 
effects was given by Scanlan and Truman (Ref. 6-3M who considered 
a 3 degree-of-freedom mathematical model of an elastically supported 
propeller/engine combination. In a related experimental investiga- 
tion under the direction of Scanlan, Brower and Lassen (Ref. 6-35) 
demonstrated that gyroscopic effects due to rotating propellers 
may manifest themselves by a change in the natural frequency, a 

change in the mode shape, or the appearance of new modes. The most 
_ 

The columns of [X] corresponding to zero eigenvalues will all be 
grouped at the right in [X] if the Jacobi method is used to solve 
Eq. 6-64a. 
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recent treatment of this problem appears to be the work of Griffin 
(Ref. 6-36). 

For dynamic analyses the primary gyroscopic effects of rotating 
components can be accounted for by treating each such component as a 
rigid rotating disc. Based on this idealization the concept of a 
"gyroscopic finite element" is introduced herein and the analyses 
for natural mode vibration analysis by direct and component mode 
synthesis techniques analytically extended* to include the effects 
of gyroscopic coupling forces. The approach taken is that of 
modifying the Lagrangian potential for the partitioned structure to 
account for the gyroscopic effects of any rotating components. The 
concept of a gyroscopic finite element and the proposed approach are 
believed to be new and have the convenience of being readily incor- 
porated into either direct or modal formulations for dynamic 
analyses within the Lagrangian scheme for establishing equations of 
motion. For notational convenience in the analytical development, 
general matrix expressions are used to illustrate the analytical 
approach without specifying the exact details. 

(a) Inclusion of Gyroscopic Effects in the Direct Method 

Let [&]„„, [K]. T _, and {6} be the mass, stiffness, and deflec- 

tion matrices, respectively, of the partitioned structure minus any 

gyroscopic components. The analogous matrices for the gyroscopic 

components, from Appendix G, are denoted by [M]^, [Null], and {yK 

Defining 

_ 

These extensions have not yet been programmed, however. 


* 
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the kinetic energy of the total system, including gyroscopic 
components , can be written as 



or, in abridged notation 



where the definition of [M]and[E] follow directly from Eq. 6-68. 
Expanding Eq. 6-69 we obtain 
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t = | {t} T [M]m + kt} T [g]w 

(6-70) 

+ \ 

Since energy is a scalar each term in Eq.. 6-70 is a scalar. Hence 

(x> T [E] { xp} 5 {^} T [E] T {f> (6-71) 




(6-73) 


or, more simply, 


V = | {t} T [K]{t} 


(6-74) 


The Lagrangian for the partitioned system is then 
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L = T - V 

= | {t} T tM]{t} + ty} T [E] T {t} 

- | {t> T [K]{t> (6-75) 

Constraint equations enforcing inter-substructure displacement 
compatibility have the form 


[C]{t> = ( 0 ) (6-76)* 

from which the required transformation to independent coordinates is 

{t} = [6] {q} (6-77) 

Let the rows in [3] which correspond to {^} in {x} be designated 
[R]. Then 


(xfi> = [R](q> (6-78) 

Substituting Eqs. 6-77 and 6-78 into Eq. 6-75 yields 


* 


Both the real and imaginary parts of the complex deflection vector 
{x } will satisfy Eq. 6-76; that is, we have [C]{x p + i x T } - {0}. 
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l = | {4> T [6] T [Mne]{4> 

+ {<!> T [R] T ti] T t3H4} (6-79) 

- | k} T [6] T lK][6]{q> 


or, in more abbreviated form 


l = | {4> t {m]{4> + k} T [G]{4> 
- | k> T [K](q> 


(6-80) 


where the definition of [M] , [G] , and [K] follow from Eq. 6-79- In 
Eq. 6-80 [M] and [K] are symmetric while [G] is non- symmetric. 
Substituting Eq. 6-80 into Lagrange's equation (Eq. 6-22) leads to 


[M] {q} + 



(4> + [K] {q} = {0} 


(6-81) 


Defining 


IT] = [G] T - [G] 


(6-82) 


The equations of motion assume the final form 


[M] {q} + [T] { 4} + [K] {q} = {0} 


(6-83) 



1+35 


where |T] is skew-symmetric. Although gyroscopic coupling intro- 
duces 4 terms in the equations of motion they do not act like 
damping since there is no energy loss associated with them. This 
will be shown later. 

(b) Inclusion of Gyroscopic Effects in Component Mode Synthesis 
In the spirit of the component mode synthesis scheme as 
developed earlier in this chapter, the transformation from discrete 
coordinates to modal coordinates is given by 

{x} = [U]{p} (6-84) 

where [U] is composed of selected modes from each substructure 
arranged in the block diagonal form previously indicated in 
Eq. 6-24. No modal expansion is employed for gyroscopic sub- 
structures since they are taken as rigid and the blocks in [U] 
corresponding to these components are simply unit matrices of 
order 6. Let the rows in [U] corresponding to {ij;} in {x} be 
designated [R'J. Then 


{ty} = [R' ]{p} 


(6-85)* 


Substituting Eqs . 6-84 and 6-85 into the Lagrangian as given in 
Eq. 6-T5 


Primes are again employed to distinguish between common symbols 
which represent matrix quantities which are different numerically. 


4 
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L = \ {p} T [U] T [M][U]{p} + {p} T [R'] T [E] T [uHp} 

- | {p} T tU] T tK][U]{p> (6-86) 

In terms of the substructure modal coordinates the constraint 
equations (Eq. 6-28) are 

[CHuHp} = (0} (6-87) 

from which 

{p> = [3* Hq.* > (6-88) 

Substituting Eq. 6-88 into Eq. 6-86 there results 

L = | {q’} T [e , ] T [U] T [M][U]t8']{4 , > + {q'} T [B , ] T [R , ] T [E] T [U][8 , ]{4'} 

- | {<! , > T [6 , ] T tU] T [K][U][8']{q , > (6-89) 

or , in abridged notation 

L = | {4'} T [M«]{4 ? } + {q* } T [G’ ] {4' ) - \ {q'VV’Hq'} (6-90) 


Substituting Eq. 6-90 into Lagrange's equation and using Eq. 6-82 
the equations of motion are 



(6-91) 


*+37 

[M']{q’} + [r» ] (4* > + [K 1 ] {q' } = {0} 

(c) Inclusion of Gyroscopic Effects Via a Normal Mode Approach 

Gyroscopic effects can also he included by proceeding along 
the lines of the familiar normal mode approach to solution of 
dynamic response problems. First solve the eigenvalue problem 
given by Eq. 6-83 assuming that [T] = 0. This leads to a set of 
modes and frequencies for the complete structure. Assume that the 
coupled modes of the system with gyroscopic effects included can be 
given as a linear combination of some of the modes of the complete 
system for the case of no gyroscopic effects, that is, take 

{t } — [$] (p 1 } (6-92) 

The procedure from this point on is identical to that in section (b) 
directly above, with [$] replacing [U] , and leads to 

[M"]{q”} + [r"]{4"} + [K"]{q"} = {0} (6-93) 

Again, the primes have been employed to distinguish between common sym- 
bols which represent matrix quantities which are different numerically. 

(d) Solution of Equations of Motion 

The equations of motion for a gyro sc6pic ally coupled elastic 
system as given in Eqs . 6-83 , 6-91 , or 6-93 may be written , 
without loss of generality, as 
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[M] {q} + [P]{q} + [K] {q.} = {0} (6-94) 

where the primes have been dropped for convenience. The generalized 
mass and stiffness matrices [M] and [K] are both symmetric; the 
matrix of gyroscopic terms, [f], is skew-symmetric. The equations 
governing the stability of a proprot or /pylon System, as developed 
in Chapter 3, had a matrix form similar to that of Eq. 6-94. It will 
be recalled that the reduction of those equations to standard eigen- 
value form was complicated by the fact that the damping matrix was 
not proportional to either the mass or stiffness matrix (or a linear 
combination of them). Now the skew-symmetry of [P] leads to a 
similar situation; that is, [T] is not proportional to either [M] 
or [K] (or a linear combination of them). Non-proportionality of 
the matrix of coefficients of the rate terms is sufficient to 
ensure that the eigenvectors will be complex, indicating that both 
amplitude and phase distinguish the components in each vector. 

Thus if Eq. 6-94 represents N equations, 2N equations are required 
to determine all components of a mode. It is not unexpected, 
then, that considerations similar to those employed in Chapter 3 
for reducing the proprotor equations of motion to standard 
eigenvalue form must be resorted to for Eq. 6-94. Again, certain 
aspects of methods which have been developed for uncoupling the 
forced equations of motion for systems containing non-proportional 

damping* are relevant to the problem at hand. The particular 

_ 

These methods are reviewed in Chapter 3 and more fully described 
in the references cited therein. 
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aspect of those procedures which is of direct interest here is the 
means for effecting a transformation to 2N-space, that is, replacing 
the II equations of second order (6-94) by 2N first order equations. 

If [M] is positive definite (that is, if [M] ^ exists) the 
appropriate procedure for reducing Eq. 6-94 to standard eigenvalue 
form is identical to that described in Chapter 3 for reducing 
Eq. 3-142 to standard eigenvalue form. Since this case is adequately 
discussed in Chapter 3 it will not be repeated here. The reader 
may, however, find a review of this case helpful at this time. If 
[M] in Eq. 6-94 is positive semidefinite its inverse will not 
exist and the method outlined in Chapter 3 will not work. A 
procedure which appears suitable in this case is proposed below. 

First reduce the matrix [M] to a diagonal matrix by an 
orthogonality transformation 

[Q] T [M][Q] = [-y*.] (6-95) 

where [Q] is a modal matrix of [M] and f — is a diagonal matrix 
of eigenvalues of [M] . Thus, substituting 

(q> = [Q] (n> (6-96) 

T 

into Eq. 6-94 and premultiplying by [Q] gives 


[Q] T [M][Q]{fi} + CQ] T [r] [Q] (n> + (Q] T [K][Q] (n> = {0} 


(6-97) 



or, more simply. 


hMtn) + (?]«} + [K]{n> = { 0 } 


(6-98) 


As before assume that all of the eigenvalues jjl which are zero are 
arranged so that they constitute the lower diagonal elements of 
[■" Ji-~] . Eq. 6-98 can then be written in the partitioned form 


r* * 


r 

HvJ i [0] 

x 1 



1 

1 

/ 


T 

l 

to] i [or 

s 



in* > 
C 2 J 


•>< 


> r u'i 'V 

I 

-L— 

I 

‘ F 2l’! ' f 2 *1 

Expanding Eq. 6-99 assigning [fj = 0 


to x > 


{%} 


1 

. 1 _ 


1 

_ [i W i [ *22l 

in 2 > 

1 


= to} 


( 6 - 99 ) 


hyycy + [yHy + [K 12 ]{n 2 > = { 0 } 
[K 21 ]{n 1 > + [K 22 ]-Cn 2 > = { 0 } 


(6-100a) 
(6-10 Ob) 


and solving Eq. 6-100b for {r) 2 }, "the matrix of coordinates at which 
no inertia forces act, implies the coordinate transformation 


M 

)= 

[i] 

M 

— 1 

1— 1 

rH 

H 

1 

*"oj 

} ti* 

1 1 


{y = tTity 


( 6 - 101 ) 


Guyan (Ref. 6-33) has suggested use of the transformation given in 
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Eq. 6-101 to simultaneously reduce mass and stiffness matrices in 

natural mode analyses. Here, however, the mass matrix is already 

in a reduced form (cf. Eq. 6-99) and we may, in the spirit of Ref. 

6-33, employ Eq. 6-101 to alternatively effect a simultaneous 

reduction of the generalized gyroscopic and stiffness matrices. 

Thus, substituting Eq. 6-101 into Eq. 6-99 and premultiplying by 
T 

[T] there results 


+ [f]^} + [kHt^} = {0} (6-102) 


where the reduced gyroscopic and stiffness matrices are given by 


m = 


[?n] - - O^r [k 2 iO 0 f 2i ] 


r? 22 j[K 22 ] $21 Q 


(6-103a) 


and 


[K] 


[Sul - 


(6-10 3b) 


Since all submatrices of the original stiffness matrix [K] 

A A 

contribute to [K] the accuracy of [K] is equivalent to the 
accuracy of the stiffness matrix before reduction. Although the 
reduced gyroscopic matrix contains all submatrices of the original 
mat rix, these appear in combination with submatrices from the 
original stiffness matrix so that, as in the case for simultaneous 


4 
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reduction of mass and stiffness matrices (Ref. 6-33), the 
eigenvalue problem is not exactly preserved. Eq. 6-102 is now in a 
form from which the transformation to 2N-space can be effected in 
the usual manner (ef. Chapter 3). Multiplying Eq. 6-102 through by 
the inverse of ["-y^] 


H]{\} + + [''U r r 1 [KHn 1 } = { 0 } (6-io4) 


and introducing the identity 


{\} - {\} = {0} 


(6-105) 


Eqs. 6-104 and 6-105 can be written in the combined form 


r. m r\ 


- - 


■Cn_ > 
V. J 


Co] 


-l^y r l" 1 [k] 


[i] 




-hy^]" 1 [f]_ 


r 


< ) (6-106) 


V. 1 J 


Defining 


{W} =■ 


(0^ 


( 6 - 10 ?) 


Eq. 6-106 can be written in the compact form 


(W) = [H] (W) 


( 6 - 108 ) 



where the definition of [H] follows directly from Eq. 6-106. [H] 

is non-symmetric and will, in general, be singular. Assuming a 
solution of the form 


{W} = {W q } e Xt (6-109) 

Eq. 6 -IO 8 reduces to the standard eigenvalue form 

[H]{W } = X{W } (6-110) 

o o 

Eq. 6-110 defines the complex eigenvalue problem for determining the 
natural modes and frequencies of a gyroscopically coupled elastic 
system. 

A procedure for handling the case of a singular mass matrix 
based on transforming to 3N-space and so on to nN-space (n an 
integer) until the leading matrix is positive definite is given in 
Ref. 6-37. What seems to be basically a similar procedure is given 
in Ref. 6-38. Neither of these methods, however, appears to be 
suited to routine machine computation, thereby lacking the computa- 
tional convenience of the Guyan-type reduction proposed above. 

(e) Interpretation of Eigensolutions 

Solution of Eq. 6-110 leads to 2N complex eigenvalues X 
and eigenvectors {W q } Since [H] is real these occur in N 

complex conjugate pairs. Discarding the negative frequency roots 
and their associated eigenvectors the p eigenvalue has the form 
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X 

P 


a 


P 


+ ico 
P 


( 6 - 111 ) 


Now the set of equations adjoint to Eq. 6-94 are given by 


[M] T {y} - (r] T {y} + [K] T {y} = {0} (6-112) 


[M] and [K] are symmetric; since [T] is skew-symmetric , [F] = -[F]. 

Thus Eq. 6-112 is identical to Eq. 6-94. For a conservative system 

the adjoint set is identical in form to the original set (Ref. 6-39). 

Hence the in Eq. 6-111, which are associated with dissipative 

forces, are zero and the eigenvalues A are pure imaginary.* 

P 

The complex vector associated with the eigenvalue A^ can be 
written in the form 


r 


{>>> 


{w (p) > -{ 

O \ 


(6-113) 


[yw (p) >J 

The upper N elements {w^} in each vector of 2N elements define 
the generalized mode shape. Since these elements are complex, 
phase differences will exist between the harmonic motions at 
different points of the system in a given mode of motion. The 

# ' " 

Griffin (Ref. 6-36) shows that the skew-symmetry of [T] is a 
necessary and sufficient condition for the net work done by the 
gyroscopic torques to be zero, thus precluding any energy dissipation. 

The lower N elements define the generalized velocity. 


A 



relative amplitude and phasing existing in a given mode could be 
ascertained by converting the complex elements of the mode to polar 
form and then normalizing on one of them. 

The generalized displacement vectors {w V ' P '}^ must be transformed 
back to the original coordinates for physical interpretation. The 
back-transformation is given by 


{ t >. = mm 


in 


tK 22 ] tK 21 l 


{w}. 


(6-114) 


for the direct method. 


{t}. = [U] [6' ] [Q* ] 


[I] 


•tKy - 1 


{w'}. 


(6-115) 


for component mode synthesis , and 


{t}. = t$][3"][Q"] 


[I] 






(6-116) 


in the normal mode method. The primes have been reintroduced for 
the purpose of distinguishing between common symbols which represent 
matrix quantities which are different numerically. The final mode 
shapes {tK are defined in local substructure coordinates. If 
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desired a transformation to a global set of coordinates could be 
subsequently carried out. 

A Remark on Solution of the Free Equations of Motion 

In the final equations of free vibration given above for the 
case of zero and non-zero gyroscopic coupling (Eqs. 6-39 and 6-9l*) 
respectively) both [M] and [K] were symmetric. This symmetry has 
been a consequence of working in orthogonal coordinates. The use 
of non-orthogonal (ie. , oblique) coordinates would lead to [M] and 
[K] which are not symmetric. The procedures described above for 
reducing the equations of motion to standard eigenvalue form are, 
however, still valid since [M] can be reduced to diagonal form in 
this instance by a similarity transformation: 

[Q]" 1 CM] [Q] = (6-117) 

The necessary changes in the steps indicated above are arrived at 

T —I 

by merely replacing [Q] by [Q] 
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Figure 6-3. 


A two-element beam substructure. 



Figure 6-k. Sign convention for end deflections of massless uni- 
form beam segment ( beam- spring ) . 
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Figure 6-5. Stiffness matrix of massless uniform beam segment (beam-spring). 
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Figure 6-10. Manner of assimilating the rigid tody inertial pro- 
perties of a center-line fuel tank into the inertial 
matrix of the fuselage beam. 
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Figure 6-11. Inertia matrix of the fuselage beam/ fuel tank combination of Fig. 6-10. 
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natural mode analysis. 
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Figure 6-13. Matrix of spring terms introduced by the spring-mass analogy of Fig. 6-12. 
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Figure 6— 14. Composition of the system modal expansion matrix 
[U] corresponding to the stick model of Fig. 6-6 


CHAPTER 7 


CONCLUDING REMARKS 

This dissertation has presented the results of some generalized 
aeroelastic and dynamic studies which complement and extend various 
aspects of technology applicable to tilt-rotor VTOL aircraft. 

Selected analytical and experimental studies and related dis- 
cussions have provided insight into several aeroelastic and dynamic 
aspects associated with tilt-rotor aircraft operating in the high- 
speed airplane mode of flight with the proprotors fully converted 
forward. Particular attention has been given to proprot or /pylon 
whirl instability, a precession- type instability akin to propeller/ 
nacelle whirl fultter, which first came into prominence in 1962 
during tests of the Bell XV -3 convertiplane in the NASA-Ames full- 
scale wind tunnel. Several salient features of propeller- and 
proprotor-related dynamics were examined and the origin of the forces 
and moments generated during precessional motion indicated. These 
considerations have provided additional insight into the mechanism 
of whirl flutter for both propellers and proprotors. The blade 
flapping and pitch-change freedoms of a proprotor were shown to in- 
troduce new ingredients into the dynamic behavior of a proprotor 
relative to that of a propeller, thereby leading to a fundamentally 
different situation as regards the manner in which the precession- 
generated aerodynamic forces and moments act on the pylon and induce 
whirl flutter. Whereas aerodynamic cross-stiffness moments are the 
driving terms for propeller /nacelle whirl flutter, the primary 
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destabilizing factors on proprotor/pylon motion are the inplane shear 
forces associated with the airload moments required to precess the 
rotor in space in response to shaft motions. In addition to a true 
whirl instability involving both pitching and yawing motions, a pro- 
protor/pylon system can, in contrast to a propeller /nacelle system, 
exhibit a dynamic instability in either the pitch or yaw direction 
depending on the pylon sypport conditions. The flapping and pitch- 
change freedoms of a proprotor lead to aerodynamic forces and moments 
the magnitude and phase of which are dependent on the frequency of 
the precessional motion. The implication of the proprotor forces 
and moments which are induced during whirling motions were also ex- 
amined with regard to their capacity for instigating a whirl insta- 
bility. These considerations have shown, it is believed for the first 
time, precisely why a proprotor can physically exhibit whirl flutter 
in either the backward or forward directions in contrast to a pro- 
peller which is found to always whirl in the backward direction. The 
work herein has shown that the ambidextrous behavior of a proprotor 
as regards the direction in which it can whirl flutter is a direct 
consequence of the frequency dependency of the aerodynamic forces 
and moments. 

Equations describing the perturbation motions of an idealized 
proprotor/pylon/wing system encastre' at the wing root with the 
proprotor fully converted forward were derived. The particular 
mathematical model employed assumed a three-or-more-bladed rotor 
in an axial flow condition having rigid blades whose flapping motion 
could be represented by longitudinal and lateral flapping of the 
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tip-path-plane. The proprotor was taken to he gimbal-mounted to a 
pylon having three translational and three rotational degrees of 
freedom and constrained hy linear springs and dampers to represent 
the pylon support conditions. A quasi-steady aerodynamic theory ap- 
plied stripwise to the blade and integrated along its span was used 
for the blade loading. The option of employing Theodorsen unsteady 
aerodynamics to approximate the effects of the shed wake was also 
provided. Wing and pylon aerodynamics were not included. In addition 
to providing the analytical basis from which to assess the aeroelas- 
tic stability of the system the equations of motion were shown to fur- 
nish the basis for deriving the equations for calculating the fre- 
quency response characteristics of the proprotor force and moment 
derivatives and the tip-path-plane flapping derivatives. 

Using parameters relevant to the Bell Model 266 tilt-rotor de- 
sign evolved during the U.S. Army Composite Aircraft Program, the 
proprotor analyses developed herein were employed in some analytical 
trend studies to delineate the effects of various system design 
parameters on proprotor/ pylon stability, flapping response, and 
proprotor force and moment derivatives, the response characteristics 
being examined in light of their effects on proprotor/pylon aero- 
elastic stability and aircraft rigid-body stability and response. 

Results of experimental studies pertaining mainly to joint 
NASA/Bell Helicopter Company investigations of a 0.1333-scale, 
semi-span, dynamic, aeroelastic model of the Model 266 tilt- 
rotor in the Langley transonic dynamics tunnel were presented. 

During these investigations an apparently new type of flapping 
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instability associated with the stopped or slowly turning rotor was 
identified. The instability was characterized by an essentially 
rigid-body flapping motion of the blades such that the tip-path-plane 
of the blades exhibited a wobbling preeessional motion in the forward 
whirl direction (for negative 6^ )• Because of the novel character 
of this instability the effect of various system parameters on the 
instability was established both experimentally and analytically. 
Based on these studies it was concluded that rotor precone was the 
primary factor contributing to the flapping instability at low rpm. 

To provide additional data for correlation selected results pertain- 
ing to a 1/5 scale model of the Bell Model 300 tilt-rotor design as 
well as some results from tests of a 25-foot flightworthy Model 300 
proprotor in the Ames full-scale wind tunnel have also been included. 

The analytical predictions were found to be in good agreement 
with measured dynamic characteristics thereby providing validation 
of the proprotor/pylon stability and response analyses developed in 
this dissertation. 

Although the proprotor analyses have been developed for a 
proprotor of the semi-rigid (ie. , gimbaled) type characteristic of 
Bell designs and are thus strictly applicable only to rotors of 
that type the analyses were found to have a somewhat broader range of 
applicability. Specifically, the stability analysis herein has also 
been applied to whirl flutter data obtained during a joint NASA/ 
Grumman test program in the transonic dynamics tunnel employing a 
research configuration of a semispan model of the Grumman "Helicat" 
tilt-rotor. This tilt-rotor design is characterized by a proprotor 
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having blades with offset flapping hinges. For analysis purposes the 
restoring centrifugal moment from the offset flapping hinge was sim- 
ulated by introducing an equivalent hub spring. Analyses based on 
this equivalent gimbaled rotor were in good agreement with the mea*- 
sured stability characteristics over a wide range of variable system 
parameters. These results are being prepared for publication as a 
NASA Technical Note. 

In recognition of the fundamental role assumed by natural vi- 
bration modes in aeroelastic and dynamic response analyses and in 
structural design verification, this dissertation has also directed 
attention to the development and computer implementation of utili- 
tarian computational procedures for natural mode vibration analysis 
of structural systems, particualrly aircraft structures. Two meth- 
odologies for natural mode analysis have been described; both em- 
ploy the substructuring technique and are based on the stiffness 
matrix method of structural analysis. The first consists of a 
direct approach based on solving the matrix eigenvalue problem resul- 
ting from a finite element representation of the complete structure 
as an entity. The second method is that of component mode synthesis 
which is based on the concept of synthesizing the vibration modes 
of the complete structure from modes of conveniently defined 
substructures , or components , into which the structure has been 
divided. The latter method provides for a significant reduction 
in the size of the resulting eigenvalue problem through the ex- 
pedient of partial modal synthesis wherein only a relatively few 
of the modes from each component are chosen as degrees of freedom 
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and. employed in the synthesizing procedure. Although hoth of the 
analyses as developed in this dissertation are applicable to a 
structural idealization based on any type of finite element , the 
computer implementation of these analyses was limited to structures 
which admit of a stick model representation for dynamic analysis. 

Since many structures can be represented in this manner, particular- 
ly in the preliminary stages of design, the computer programs so es- 
tablished have a relatively wide range of engineering applicability. 

A stick model of the Model 266 tilt-rotor was employed in a detailed 
numerical example to illustrate the substructuring approach and the 
mechanics of setting down the equations of constraint which enforce 
deflection compatibility at the junctions of the substructures. 

Both methods of analysis were applied to two simple structural 
systems in some comparative studies. Validation of both analyses 
as embodied in the computer programs was demonstrated by showing 
correlation with experimentally measured modes and frequencies 
obtained from a model of one of the configurations. To provide for 
additional validation, mention was also made of related work by the 
author and others in which the computer programs embodying both me- 
thods of analysis have been applied to more complex structural 
systems . 

On the assumption that the primary gyroscopic effects of large 
rotating components such as propellers or proprotors can be accounted 
for by idealizing each such component as a rigid rotating disc, the 
dissertation has introduced the concept of a gyroscopic finite ele- 
ment which has the convenience of being readily incorporated into 
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either a direct or modal formulation for dynamic analysis. By means 
of this artifice both analyses for determining natural modes and 
frequencies of vibration were extended to include the case of a gy- 
roscopically coupled elastic system. The final equations of motion 
lead to a generalized eigenvalue problem in which both the mass and 
stiffness matrices can be singular, thereby precluding the usual 
procedure for reducing the equations to the standard eigenvalue 
form required for solution. A method which appears suited to routine 
machine computation has been proposed for effecting such a reduction 
in the general case in which both the mass and stiffness matrices 
are singular. These extensions have, however, not yet been pro- 
grammed and thus lack numerical verification. 

The analytical portion of the research reported in this 
dissertation is continuing. Attention is being directed toward ex- 
tending the present flutter analysis for an isolated proprotor/pylon 
system encastre' at the wing root to include aircraft rigid-body 
dynamics and aerodynamics, blade inplane flexibility, and wing 
aerodynamics. Work is also continuing on refining and extending 
the computer programs for natural mode analysis, particularly as 
regards the inclusion of gyroscopic coupling effects. 
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APPENDIX A 


RIGID BODY MASS MATRIX REFERRED TO AN ARBITRARY SYSTEM OF AXES 

Various aircraft appendages, such as engine/nacelle combina- 
tions, ordnance, external fuel tanks, etc., can often be treated as 
rigid lumped masses during dynamic analyses of the complete vehicle. 
Since the inertial properties of such appendages are generally 
available in the form of lumped values for the mass and moments and 
products of inertia relative to some axes fixed to the center of 
mass of the item, it is desirable to retain inertial information in 
this form. However, quite often in applications, it is necessary 
to be able to express these inertial properties relative to another 
axis system which is displaced from and arbitrarily oriented to the 
axes in which the inertial properties are defined. This requires a 
transformation of coordinates which can be effected in the manner 
outlined below. 

The situation being addressed is depicted in the sketch shown 

below. A rigid body is translating and rotating with respect to 

the axis system X q , Y q , Z q which is fixed in space. The inertial 

properties of the rigid body are defined with respect to the axes 

x , y , z fixed in the body at its center of mass. Relative to 
c c c 
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Since the kinetic energy is independent of the coordinate system 
used in its calculation, we can also write 

* {i} 0 W. ti} 0 (A ' 3) 

The coordinate transformation from body axes to fixed axes can be 
formally written in the form 

{x} c = [0](X) O (A-4) 

Substituting Eq. A-4 into Eq. A- 2 and equating the resultant expres- 
sion to that in Eq. A-3 

2T = {X} T [0] T [Ml [0]{X} = 2T * {X} T [M] {X> (A-5) 

c o C O o ooo 

the mass matrix in fixed axes is seen to be given by 

[M] q = [0] T [M] c [0] (A-6) 


It now remains to establish the specific form of the transformation 
matrix [0], 

Since the magnitude of the rigid body angular velocity vector 
is an invariant we can write 


a I + 83 + Y E = a I + 

o o o o o o c c 


8 j + y k 

e J c 1 c c 


(A-7) 


where a , 8 , y and ot , 8 , Y are the angular velocity com- 
ooo c c c 

ponents with respect to fixed and body axes, respectively, and I q , 
j Q , k Q and i c , 3 C » k c are corresponding unit vector triads. The 
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angular velocity components in body axes can be expressed in terms 
of the fixed system components by forming the dot products of i c » 
3 C » and respectively with Eq. A-7. This gives 


a * a .1 * i + B I • j + v i • k 

c OC G O C d O f OC o 


e c - Mo • l o * Mo • h * Vo • E - 


(A-8) 


* • mmm 


y = a k • I + 6 k • j + Y k • k 
e o c o o c o o c o 


The dot products involving the unit vectors in Eqs. A- 8 can be 
physically interpreted as the projection of the body axes unit 
vectors onto the fixed axes unit vectors. Defining these "direc- 
tion cosines" by , Eqs. A-8 can be written as 

6t = Jt-.-a + JL 0 & + l. _Y 
c 11 o 12 o 13 o 


& c = A 21°o + * 22^0 + £ 23 Y o 


(A-9) 


Y c “ *31% + Vo + *33 Y o 


Equating expressions for the translational velocity vector in 
fixed and body axes 


X I + Y j +Zk - x I + y j 
o o o o o o c c c c 


z k 
c c 


(A-10) 


and proceeding as above leads to 



Eqs. A-ll define the translational velocity components in the body 
axes due to translational velocities in the fixed system. Now 
fixed system angular velocities will also contribute to the trans- 
lational velocity in the body axes. The combined effects axe 
obtained by making the substitutions 


X — + c$ - by 
o-ooo 


Y — Hf + ay - co 

o o o o 


(A-12) 


Z - ► Z + ba - a3 
o o o o 


in Eqs. A-ll. These results in conjunction with those previously 
given in Eqs. A-9 can then be put in the combined matrix form 
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which defines the transformation relating velocities in the fixed 
axis system to velocities in the hody axis system. The square 
matrix in Eq. A-13 is the required trams format ion matrix [0] to he 
used in Eq. A-6. 
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APPENDIX B 


BLADE FLAPPING NATURAL FREQUENCY 
Gimbaled Proprotor 

An expression for the blade flapping natural frequency can be 
derived from the equations of motion developed in Chapter 3 by con- 
sidering the degenerate case obtained through retaining only the 
two tip-path-plane degrees of freedom. If precone and gimbal 
damping are neglected the resulting equations for the case of a 
symmetric hub restraint reduce to 

1^ + 2I R fi!b 1 + K H a 1 = M (B-la) 

^*1 - 2I A ♦ • N (B - lb) 

where the longitudinal and lateral tip-path-plane flapping moments 
(from Eqs. 3-129 and 3-130) axe given by 

A 

M = ~ Y^ 2 I r [” B 3 a i tan 5 3 ~ ft a i ” A 5 bJ (B-2a) 

» • - I tan 6 3 + T b l - Va] (B - 2b) 

Multiplying Eq. B-la by sin ip and Eq. B-lb by cos ip, subtract- 
ing the second equation from the first, and making use of the 
relations 
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8 = a 1 sin ip - cos ip 

8 = sin ip - b^ cos ip + a^fi cos ip + b^ sin ip 

(B-3) 

8 * a^ sin ip - ^ cos ip + 2a 1 & cos ip + sin ip 

2 2 
- sin ip + b^ft cos ip 


defining the transformation between blade flapping motion and tip- 
path-plane flapping motion, the resulting equation can be put into 
the form 


8+| Y^B + 


Q2 + !r + 2 "^^3 tan S 3 


6 = 0 


(B-4) 


Comparing Eq. B-U to the equation pf motion for a viscously damped 
one degree of freedom system 


x 


2£ oo^x + 


co 


x = 0 


(B-5) 


the undamped flapping natural frequency is seen to be given by 

.1 

2 


oo„ 

- - “8 

W 8 Q 


1 + 7?2 + i 1*3 ta " { 3 

i r“ 


and the aerodynamic flap damping by 

’6 

The damped natural frequency is of course given by 


C .2* 


w ft = “ft 

3 d 3 




(B-6) 


(B-7) 


.4 


(B-8) 
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If a representative section aerodynamic theory is used to 
specify the blade loading Eqs. B-6 and B-7 are replaced by 


= 

6 


1 + 


*H . l tan 6 3 




8 cos $ 


(B-9) 


c „ rcssjt (B _ 10) 

6 


where the bar over <J) denotes that the inflow angle is to be 
evaluated at the representative blade spanwise station. 

The effect of 6^ on bhe blade flapping frequency is seen to 
be that of an aerodynamic spring which increases or decreases the 
frequency depending on whether 6^ * 8 positive or negative. 


Offset Flapping Hinge Proprotor 

It is of interest to present the analogous expressions for the 
case of a proprotor having blades with offset flapping hinges. 
Proceeding as above vising the equations of motion developed by 
Richardson and Naylor* for a propeller having hinged blades the 
analogous expressions can be shown to be 


r 



1 + 



*H 


— + !&(b 


1 

(2 


eB. ) tan 6 
* 


(B~ll) 


Richardson, J. R. , and H. F. W. Naylor: "Whirl Flutter of 
Propellers with Hinged Blades," Engineering Research Associates, 
Report No. 2k t March 1962. 
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where 


Co * — “ (A_ - 2e A. + e 2 A_ ) 
3 4*L 5 e 4 e 3 e 


(B-12) 
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e 


4 

pa cR 
o 



* 


(B-13) 


and the subscript e (e = e/R, e the hinge offset) is used to 
denote quantities defined with respect to the flapping hinge loca- 
tion. Also, in the aerodynamic integrals the lower limit of inte- 
gration for no root cutout is = e rather than = 0. Comr- 
paring Eqs. B-6 and B-7 to Eqs. B-ll and B-12 it is seen that sev- 
eral additional terms appear for the proprotor having non-centrally 
hinged blades* 


An Equivalent Hub Spring Approximation for a Stiff-Inplane Prop- 
rotor with Offset Flapping Hinges 

A gimbaled proprotor is essentially a zero offset flapping 
hinge rotor. On the supposition that the principal stability and 
response characteristics can be approximated by using an equivalent 
hub spring to represent the restoring centrifugal moment from an 
offset flapping hinge, analyses developed for the gimbaled prop- 
rotor are applicable to a stiff-inplane offset flapping hinge 
rotor, at least for preliminary design calculations. The equiva- 
lent hub spring is established by requiring that 
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so that the in-vacuum blade flapping natural frequency is pre- 
served.* For a given offset flapping hinge proprotor configuration 
and a selected rotational speed the right hand side of Eq. B-l4 
and the denominator of the left hand side are known, permitting 
solution for the equivalent K^. 

A more complete equivalence could be established by retaining 
all terms in the expressions for both dynamic and aerodynamic, 

equating Eq. B-6 to Eq. B-U, and solving for K^. In this case a 
new equivalent would have to be determined for each (ft,V) com- 

bination rather than for just each ft as in Eq. B-l4 above. 


Fixed System Flapping Frequencies 

Blade flapping is related to tip-path-plane flapping by Eq. 

B-3. The relation between the blade flapping frequency and the two 

+ 

tip-path-plane flapping frequencies is given by 

“id- “ 2a “ 1° 1 “« I 

a 

The proprotor stability program PRSTAB6 (Appendix G) prints 
out values for and for each airspeed at which the sta- 

bility determinant is solved. At low airspeeds 0) o is sufficient- 

p 

ly close to 0 ) o that Eq. B-15 can be used to identify the t ip-pat h- 
g d 


This is s imi lar in many respects to an equivalence suggested 
by M. I. Young for hingeless rotors: ”A Simplified Theory of 

Hingeless Rotors with Application to Tandem Helicopters,” Proceed- 
ings of the l8th Annual National Forum of the American Helicopter 
Society . May 1962. pp. 38-45. ” 

+ 

These are derived and discussed in Chapter 4. 


J 



plane flapping modes at loy velocity and hence vith increasing air- 
speed. This obviates the need to inspect thd mode shapes for the 
purpose of identifying these modes. 



APPENDIX C 


PROPROTOR OSCILLATORY FORCE AND MOMENT DERIVATIVES 

As a consequence of the flapping degree of freedom, proprotor 
generated forces and moments, such as those shown in Fig. 2-12, are 
highly frequency dependent; that is, they are functions of the lin- 
ear and angular motions of the control axis* in space. The knowl- 
edge of these forces and moments as a function of the frequency of 
motion constitutes a necessary ingredient in an aircraft dynamic 
stability analysis (airframe plus proprotors). 

The equations of motion developed in Chapter 3, in addition to 
providing the basis for an aeroelastic stability analysis, may be 
used to obtain the expressions required for calculating these 
oscillatory forces and moments. Briefly, the procedure consists in 

j . u, 

specifying a sinusoidal motion of the form e 1 of given frequen- 
cy and amplitude in one of the degrees of freedom, assuming that 
the response in the remaining degrees of freedom is at the same 
frequency but of unknown amplitude, solving the equations of motion 
for these unknown amplitudes, and then substituting the known 
results into the appropriate force and moment expressions (as 
listed in Chapter 3). Herein, only the longitudinal and lateral 
proprotor forces and moments arising from pylon oscillatory motions 
in pitch will be treated in detail for illustrative purposes. 

* 

The shaft axis for the case in which the swashplate is 
rigidly attached normal to the shaft. 
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Neglecting gimbal damping consider the tip-path-plane equa- 
tions for the case of the pylon having only the pitch degree of 
freedom. From Chapter 3 these assume the form 


Vi ♦ + VoV \ ♦ 2!a A + \ a i - M (c - la) 


Vl - 2fl Vl ' “Vy + V 1 = " 


(C-lb) 


where M and N are given by 


M 


- A^b 


2 \ 
+ V *y * T 


tA * 

-B 3 (a 1 tan & 3 + sin e) - -jf- (4> y + a ^ 

i] + | ^V B o[ B 2 <1, 1 t0 “ 5 3 * Vy 006 e) 

V I 1 
B 1 - Vl - -b VyJ 

- | yfi 2 I R jB 3 (b 1 tan « 3 - cos e) + A^ 2 ^ 

+ a B 1 - Vl ' ® VyJ 

+ i yfl 2 I R 16 0 |j- tan « 3 + Bin c) 

- TT <*y + h> ' Vl] 


(C-2a) 


( C-2b ) 


Taking the oscillatory pylon motion to be 


<b = d> e 

y y, 


iwt 


( C— 3 ) 


the steady-state response of the tip-path-plane to this forced 
oscillation of the pylon can be written as 



1+90 


iuit 

= a^ e 

(C-Ua) 

- E ~ i(at 

- ”i e 

(C-Ub) 


where and b^ are the unknown complex amplitudes to be deter- 

mined. Substituting Eqs. C-3 and C-U into Eqs. C-l the resulting 
equations can be put into the form 


-I_uT + K + F 
R a 1 


1 B 3 tan S 3 + Vi, * ^l 5 ! 

_K n - it A 4 1u + V5 - F 2 B 2 t8n { 3 ] E 1 


F 

{ J R + V.'iK - lu if a 5 - W sln £ 


* p 2 x % - F 2 B 2 K l cob * - 1“ JS Vlk <0 ' 5a) 

[- r i A 5 + r 2®2 tan S 3 + lM { P 2 T ' 2I R R }] h 
+ [-“% + \ * P 1 B 3 tan S 3 + P A + “l lf] E l 
“ - p i x2a 3 *'is W” + Wj cos 6 

■ iUP 2 if ■ P 2 B 2 IC l sin £ ]v ( °" 5k) 


where F 1 and F g are constants defined by 

F i 5 ?^ 2 Ir 


P 2 = X6 o P 1 


(o-6) 
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Eqs. C-5 constitute two non-homogeneous complex algebraic equations 
in the two unknowns a^ and fi . Writing these equations in the 


form 


a ll 

a l2 

K 


C 1 

_ a 2! 

a 22 



C 2 


<t> 

* ii 


(C-7) 


the solutions for a^ and , by Cramer's rule, are given by 

a = ^ ( C -8a) 

1 " a 21 a l2 y o 


a ll C 2 ~ a 21 c l 


a ll a 22 “ a 21 a 12 y o 


1 


(C-8b) 


where the definitions of a 1 1 , a^g,..., Cg follow directly from 
Eqs. C-5. The forces and moments acting on the harmonically oscil- 
lating proprotor then follow by substituting the solutions for a. 


and b^ into 


H = - | Y^ 2 I r 


s [ B A 


tan 6^ - K^B^ cos e 


+ V\ + T? E i - Vi - sr 


(C-9) 


v _ 1 ^2 t X 

Y - - 2 h R 


B,eL tan 6.. + K.B,$ sin e 
11 3 1 l T y 


+ i "-r<* y + ^> + A 3 i 


: E i] 


(C-10) 


J 
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M = 


- - Y^ 2 I r tan 6 3 + sin e + iw (<J> y + 5^) 

+ Vi] + 1 A^'i 


tan 6_ - BJ£-4> cos e 
3 2 l y y D 


p — - ^2^ 

< V*, 0 tl “T b r 1 > s i- 1 ’TS''' 




(C-ll) 


> * - 2 ^r[ B 3 E 1 


tan 6 0 - BJC,<|> cos e + A 0 X <f> 

3 3 1 y Q 3 y o 


■^5 _ 

+ iw b: 


A 3 X 1 

i “ Vl - iW 1® h l\\ 

- \ yfi 2 I R X3 o jB 2 S 1 tan 63 + B^^ sin e 

h) + vj 


+ ia) 7T (< V + 


(C-12) 


The forces and moments defined by Eqs. C-9 to C-12 are algebrai- 
cally complex quantities. As discussed in Chapter k this indicates 
that the total force or moment has components which axe inphase 
(or 180° out of phase) with both pitch angle and the pitching 
angular rate. The maximum value of the component inphase (or l80° 
out of phase) with the pitch angle is given by the real part of the 
complex quantity; the maximum value of the component inphase (or 
180° out of phase) with the angular pitch rate is given by the 

imaginary part. If the real part is divided by <|> and the 

y o 

imaginary part by 0 )<J> the resulting quantities can be viewed as 

y o 

force and moment derivatives due to pitch and pitch rate 


A 
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respectively. In the limiting case of zero pitch frequency the 
real portions correspond to a situation in which the pitch angle is 
constant and the imaginary parts to a constant pitch rate. 

Computer program HF0RCE1 (Appendix G) is based on the equa- 
tions developed above and evaluates both the complex forces and 
moments and the component derivatives arising from sinusoidal 
pitching oscillations of the pylon. A sample output listing is 
shown in Table C-l. The input corresponding to the case shown is 
included with the program listing in Appendix G. 

The effects of blade flapwiee flexibility, included as a 
virtual hinge dynamic representation in the manner suggested by 
Young, on the static or zero frequency normal force and pitching 
moment (H and M in the present notation) were recently treated 
by Magee and Pruyn.* 


to 

Magee, J. P. , and R. R. Pruyn: "Prediction of the Stability 

Derivatives of Large Flexible Prop/Rotors by a Simplified Analysis ," 
Presented at the 26th Annual National Forum of the American Heli- 
copter Society, June 1970. 
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TABLE C-l 


t 


PROPROTOR OSCILLATORY FORCE AND MORE NT DERIVATIVES - SAMPLE OUTPUT LISTING 


ROTOR RPM 



VELOCITY 


ADVANCE RATIO 

PYLON PITCH AMPLITUDE 

FT/S6C 

KNOTS 

K6AS 

J 

C6GPFES RADIANS 


2. 380000006*02 


5.5121621 6E+02 3 . 500000006*02 3*500000006*02 


3.87U27406+00 fc.OOC0OO0O6*3O 1.047197556-01 


PYLON PITCH FREQUENCY 


ROTOR INPLANE H-FORCE 


H-FORCE DERIVATIVES 


CYCLES/REV CPS 


RAO/ SEC 


PEAL 


IMAGINARY 


H-ALPHA H-ALPHA OCT 


0. 

Z. 000 000 006 -02 
4.0C0G000OE-G2 

s.cooooooae-02 

8.00000000E-02 
1*0 J000003E-01 
I.20000000E-01 
1 • 400000006-01 
1.600000006-01 
1.80000000E-01 
2 *000000006-01 
2 .500000006-01 
2. 60000000E-01 
3. 00 0000 OOF -01 
4. 0 0 000000 E -01 
6.0C000003E-01 

8.000000006-01 
1. 000000006*00 
1.20000000E+QC 
1.500000006*00 
1.50QO0000E+3C 
l.S030090QE*OC 
1.650000006*00 
1.700000006*00 
i, 75000000E*00 
1. 30000000E*OC 
1*0 40G0000E+00 
1 • 90000000E *00 
2. OOOOOOOOE*OC 
2.40000000E+OC 
3.0QOOOQQOE*OC 
1.000000006*01 


0. 

7.933333346-02 
1.5 666666 76 -Cl 
2. 38000000E— 01 
3.173333336-01 
3. 9666666 7E-0 1 
5.760000006-01 
5.55333335F -01 
6.3566666 76 -Cl 
7.15C00000F -01 
7.93333335E -01 
9. 5 2GOOOCOF -Gl 
1.11066 66 76 *60 
1.19000000E *C0 
1.586666676*00 
2 .3600 JOOOF *00 
3.173333336*00 
3.966666676 +00 
5.760000006*00 
5.553333356+00 
5.95C000006+00 
6. 35666667E *00 
6.50533335E+00 
6. 75 333 3 35E +00 
6 .90? 300 006 +00 
7. 15 CCO 00 06 +00 
7.298666676 +00 
T. 53666 667E+00 
7.933333356+00 
9.E2000000E+00 
1.190030006+01 
3. 9666666 7F+C1 


0. 

5.985660356-01 
9.969320696-01 
1.595398106*00 
1.99386 4146+00 
2.492330176*00 
2. 99079621 E *00 
3. 5892622 5E *00 
3.987728286+CC 
5.586195316+00 
( >.9 856603 5 £*00 
5. 981592426+00 
6. 9 785255 8E +00 
7. 47699Q5ZE+00 
9.96932069E+00 
1*495398106+01 
1,993064146+01 
2.492330176+01 
2. 9907962 IE + 01 
3.58526225E+01 
3.738595266+01 
3. 9 877282 8E *01 
4.087421486+01 
5.23 6561 2 9E + 0 1 
5.336655506*01 
5.586195316+01 
4.585887526*01 
4.735427336*01 
5.98566035E+01 
5.98159252E+01 
7. 5 769 90S 2E +01 
2.5923301 7E+02 


-2.6131501 1E+03 
-2.62655537E+03 
*2 #6 7105 8 56E *03 
-2.760015496+03 
-2. 9170 75626+03 
-3.17813500E+03 
-3.593277626+03 
-5. 2275361 3E +03 
-5. 1571 335 5E +03 
-6 .5 59376 5 7E *03 
-8.188791126*03 
•1.283390886*04 
•1.801968246*04 
-2.025688036*04 
-2.468697446*04 
-2.23679593E+04 
-2. 074609246*04 
-2.0C725562E+04 
-1.98183800E+04 
•1.936479086*05 
-1.823564476*04 
-1.43697307E+04 
-t. 112503416+04 
-4.1 9144 304E+O3 
2 *179822 60E+02 
2.527006C3E+03 
1.278751656+33 
-1.963930046+03 
-6. 526775426+03 
-1. 276302336+04 
-1,456402036*04 
-1.576743196*04 


0. 

-1.084030136*03 
-2.194208636*03 
"3. 35598 298 E *03 
•4. 592823196 *03 
-5.923679576*03 
■7. 3 5 8312 50E* 03 
-8.889589796*03 
-l. 04 02 3 937 E +04 
-1.20607433E +04 
-1.349809116*04 
■1.526605246*04 
-1.464695216*04 
*1 .343595256*04 
-5.25565646E+03 
2.272930556+03 
4. 900595096*03 
6. 908 3 4 640 E +03 
9.334415486*03 
1.331032636*04 
1.666014456*04 
2. 122154576*04 
2.27035218E+O4 
2.251904606*04 
1.933757526*04 
1.194513866*04 
7.847162606*03 
4. 38 3963 35 E+ 03 
2. 8990 5492 E *03 
5.391013706*03 
8.876975596*03 
3.642601646+04 


-2. 495364996*04 
•2.50R166C8E+04 
-?• 550672546*04 
-2.63562C45F+04 
-2. 765602036+04 
-3.034894416+04 
•3.43132-»37£+04 
■4.036904146+04 
■4.924699606*04 
-6.1 6825026F *04 
*7.019719516+04 
■1, ?2555565£*05 
■1.720752916*05 
1.933434656*05 
•2.357432406 *05 
2.135902776+05 
1.981105896 +05 
•1.916787536+05 
-1.892515886+05 
-1.845201306*05 
-1. 741375806+05 
-1. 372208 2 OE +05 
-1.0e2362;i6*05 
-4.002533276+04 
2.0815772 5E +03 
2.413113016+04 
l» 22111 7&8E+04 
-1.075415816*04 
*6.232611426+04 
-1. 220688816+05 
■1.392671356+05 
■1.5C5670P4E+O5 


rim 

-2.076716276*04 
-2.101762966*04 
-2. 143059086+04 
-2.199659956+04 
-2.265642036*04 
-2.349431516+04 
-2.432073306*04 
-2.51O1P024F+Q4 
-2.567245366+04 
-2.506032066*04 
-2.437144696*04 
•2.004264516*04 
-1.710537446+04 
-5.O3422660E+O3 
1.451445476*03 
2. 347C624 26*03 
2.446914506+03 
2.980 3803 36*03 
3.64272572F + 03 
4.255526616*03 
5.081862606+03 
5.322832696*03 
5.075540106*03 
4.258126646*03 
2.542637786*03 
1.634032296+03 
8.840546666*02 
5. 55 382580E+02 
8. 606468856*02 
1.133729896*03 
1.395653106*03 


FVLCN PITCH FREQUENCY 


ROTOR INPLANE Y-FORCE 


Y-FCRC6 DERIVATIVES 


CYCLES/REV CPS 


PAD/SEC 


PEAL 


IMAGINARY 


Y-ALPHA 


Y -ALPHA DOT 


0. 

2.OOOCO00OE-Q2 

4.000000006- 02 
5.000000036-02 
8. 0 0000 300 E -02 
l.OOOOOOOOE-Ol 
1. 2 3000 3 OOE -01 
1 • 4C0000006-01 
1.600000006-01 
1 8000C3006-01 

2.000000006- 01 
2. 400000 COC *01 
2.800000006-0! 

3.000000006- 01 

4.000000006- 01 

5.000000006- 01 
8.0 0000 303E-C1 
l • 00000003 E+OC 
1.2CCCOOOOE+OC 
1. 40000000E+0C 
1.50000000E+0C 
1.6000000Q6+OC 
1. 54000000E+OC 
1 ,700000006+00 
l.T40000006*OC 
1 . 8 000000 QE+CC 
1.34QOOOOOE+OC 
1.9O0000C3E+0C 
2. 000000 00 E+OC 
?. 400000 OOE+OC 
3. 00000003E+OC 
1.000003006+C1 


c, 

7 -.53333334E-C2 
1 ,5 8666 6 6 76^*01 
2. 38CC 30006-01 
3.17333333E-C1 
1. 966666676— C 1 
4* 76CQQQ0QE-G1 
5.553333346-01 
6.34665667E-01 
7n 14C000006-C1 
7.933333346-01 
9.520030006-01 
1.113666676*03 
1.190003006*00 
1. 5 6 6666 6 7F *00 
2.300030006*00 
3.172333336+00 
3 .966666 676 +G0 
4.76000000E+00 
5.553333346+00 
5. S 50000006+00 
6.346666676 +C0 
6. 50 5333 34E +00 
6.74333334E+C0 
6. 9 02 Q9C 006 *00 
7. 14000000E +00 
7.296666676*00 
7.536666676 +00 
7.933333346+00 
9.5 2000000E+00 
1. 1 9 C 000006 +01 
3 .9666 a6676 +C1 


Ot 

4.984660356-01 
9.969320696-01 
1.495398106+00 
1*993864146+00 
2.492330176+00 
2. 9907962 16+00 
3.489262246*00 
3. 9877282 8E+00 
4. 48619431 6 +C0 
4.984660356+00 
5.98.159242E+00 
6. 978 5 244 8E+ 00 
7.4 76990526+00 
9.969320696+00 
1.495398106+01 
1.993864146+01 
2.492330176+01 
2.990796216+01 
3. 48 526224 £+01 
3. 7 38495 2 6E +01 
3.987728286+01 
4.0 8 742 148 E +01 
4.23696129E+01 
4. 3 36654 50E +01 
4.486194316+01 
4. 58588752E+01 
4. 7 35427 3 3E +01 
4.98466035E+01 
5.981592426+01 
7.4 7699052 E+ 01 
2. 49233017 E+0 2 


2.346163706+03 
2.430053436+03 
2.683228206+03 
3.109781696*03 
3.714977966+01 
4.50238 7056 +03 
5. 4 6 803 7 74 E+0 3 
6.596345246 *03 
7.040683396+03 
9.U821646E+03 
1.029674956+04 
1.16 473 36 6E +04 
1.072112036*04 
9 .4095102 86*03 
8*46010777 E+02 
-6. 7 14749 COE +03 
*8.952049226+03 
■1. 038701 67E +04 
■1.215181206*04 
■1.542015866+04 
-1.840582516*04 
2.25984264E+04 
-2.401184336+04 
-2.352441786*04 
-2. 019244966*04 
-1.257477586+04 
'8.326249376*03 
-4. 6 366863 76*0 3 
-2.773387746*03 
-3. 743561 28E +03 
-4.940542656+03 
'6.215600976*03 


0. 

4.519669296*02 
8. 817655 576* C2 
1.264244006*03 
1. 568101576*03 
1.752 71 2 156*03 
1.765234516*03 
1. 539328896 +C 3 
9.979633866+02 
6.421918C96+01 
-1.3160 56436+03 
*5.318068326+03 
-9.928044516+03 
-1.189032 766+04 
-1.5199 8086E+04 
-1. 13142376 6*04 
-8.682141326+03 
-7.314602236+03 
-6.559717356+03 
-5.730831786+03 
-4.447862656+03 
-4.458216096+02 
2.849002686+03 
9.853633076+O3 
1.430784716+04 
1.668050376+04 
1.547246616+04 
1.2287C526E+04 
7.812249636+03 
1.835712CB6+03 
3.13014386E+02 
-1.5569E4706+02 


2. 24C421 306+04 
2.320530106*04 
?* 562294 19E +04 
2.969622776*04 
3 .5475426 4E *04 
4.299462936*04 
5. 222355366*04 
6. 25 5045 71f *04 
7.487301116*04 
8.7C72 55 336+04 
9.832671466*04 
1.112238726+05 
1.023791576*05 
8.905420446+04 
8.078807826*03 
-6.412112976+04 
■8.548577306+04 
-9.91887032E+04 
•1. 16 0 412 5 76 *05 
*1.4 725 166 BE +05 
-1.757626836+05 
"2.157990766+05 
■2.252962136+05 
-2.246416436*05 
-1.928236906+05 
-1.20080264E+05 
-7.950973876*04 
-4.427709346*04 
-2.648390216*04 
-3.574837696*04 
-4.717870706*04 
-5.93 5461 Y1E+04 


Illtl 

0. 6504961 7E+03 
8.446191356*03 
8.073195266 + 03 
7.510174196*03 
6. 715469866*03 
5.6362Q746E+03 
4.212783986*03 
2.38979381E+03 
1 . 3669671 0F+02 
•2. 52121755E + 03 
-6.490015406*03 
-1.35853706E+04 
—1. 51 8 5824 4E *04 
-1.45594153E+04 
-7.22503324E+03 
-4. 1581 741 IE* 03 
-2.802570346*03 
-2.094448516+03 
-1.568394946*03 
-1.136124476*03 
•1.0675960GE+02 
6.65602304E+02 
2.220819556*03 
3.15058245E+03 
3.550605846+03 
3. 22 1 £66366*03 
2.477763916+03 
1.496621306*03 
2.930617456+02 
3.997687576*01 
-5.96543041E+00 


A 



TABLE C-l (Continued) 


PYLON PITCH FREQUENCY 


ROTOR PITCHING MOMENT 


PITCHING WOKEN 


CYCi fcS/REV 


0. 

2. 00QQ0009E-02 
4. 00 000000 E -02 

6. 000000006-0 2 
8. 0 0 0000 00 E -02 

1 .000000006 -01 
1. 200000006 -01 
1.40000000E-01 
1. 60000000 E -01 
1.800000006-01 
2 • 000000006-01 
2.40000000E-01 
2* B0QG00Q0E-QI 
3. OOOOOOOOE-O 1 
6. 0 00000 OOP -01 
6. OOOOOOOOE-O l 
0 . 00000000 E -01 
1 ..000000.006 VQC 

1 . 20000000E *0C 
1.40OOOOOOE+OC 
1 • 50000000E *00 
1.6 00000 00 E+OC 
1.660000006*00 
1. 700000006*00 
ir 7400 00 00 E+OC 
1. 8 0 00 00 00 E *00 
1.8400Q000E+00 
l .900000 006*00 
2.00000000E*OC 
2.400000GOE+OC 
3. 000000 OOE *00 
1.000000006*01 


CYCLES/REV 


0. 

2.000000006-02 
9 .OOOOOOOOE-O 2 
6. 0 0 0000 00 E -02 
8. OOOOOOOOE-O 2 

1. 000000006- 31 
1.20000000E-01 
1 . 40 0 00 000 E -01 
1.600000006-01 
1.800000006-01 

2.000000006- 01 
2.400000006-01 
2.30000000E-01 
3. OOOOOOOOE-O 1 
4. 300000006-01 
6. OOOOOOOOE-O 1 
8. OOOOOOOOE-Ql 
1.000000006*00 
1.200000006*00 
1.400000006*00 
1.500000006*00 
1.600000006*00 
1.640O0000E+0C 
1.700000006*00 
1 » 7400G000E+GC 
1.80 0000006 *0G 
1.840000006*00 
1.900000006*00 
2. 000000006 *0C 
2.400000006*00 
3.000000006*00 
1.000000006*01 


0. 

7.933333346- 02 
1.586666676 -Cl 
2.380000006-01 
3.173333336-01 
3.966666676-01 
4. 760000 OOE -01 
5.553333346-01 
6. 346666676-01 
7 .140000006 -Cl 

7.933333346- 01 
9.520000006-01 
1.110666676*00 
1.190000006*00 
i • 5866666 7F *00 
2. 38000000F *00 
3. 173333 3 3E+C0 
3.966666676 *00 
4. 760000 OOE *00 
5.55333334F *00 
5 .95COOOOOE *C0 
6.346666676*00 
6.505 333346+00 
6. 74 3 33334E *00 
6.902000006+00 
7.14000000E *00 
7.298666676 *00 
7. 5 3 66666 7E *00 
7.933333346*00 
9. 5 20000 OOE +00 
1.190000006*01 
3.9666666 76 +C1 


0. 

7.933333346- 02 
1 ■ 56666667F— Cl 
2.38010000F-01 
3.172333336-01 
3.966666676-01 
4. 760( 3000E 01 
5.653333346-01 
6.346666676-01 
7.14000000E-01 

7. 933 33 3 3 46— Cl 
9.5 2000000E-G1 
l . 11066 66 7E +C0 
1.190000006+00 
1 . 5 866666 7 E+G 0 
2. 3 60 000 OOE +00 
3.173333336*00 
3. 9 6 6666 6 76 *C0 
4. 76 C COO OOE +00 
5.55 33333 46+CO 
5.95CC0000E+C0 
6.346666676+00 
6.505333346*00 
6.74333334E+0O 
6. 90200000E+00 
7. 140C00006 +C0 
7.298666676*00 
7. 536666676+00 
7.93333334E+00 
9. 5 20C 00006* CO 
1.190000006*01 
3.966666676+Cl 


0. 

4. 9 846603 5 E-0 l 
9.96932069E-01 
1.495398106*00 
1.99386414E+00 
2.492330176+00 
2*99079621 6+CO 
3. 489262246+00 
3.98772828E+00 
4. 4861 943 IE *00 
4. 9 846603 56 +00 
5.981592426+00 
6.976524486+00 
7.476990526*00 
9.969320696+00 
1 .495 39810 E *01 
1.993864146*01 
2. 49233017 E *01 
2. 99079621 E *01 
3. 48926224 f *01 
3.738495266*01 
3. 98772 828F *0 1 
4.08742148E+01 
4.23696129E+01 
4. 3 36654 50 E *01 
4. 406194316+01 
4. 595887526+01 
4.735427336+01 
4. 9 84660 3 5E *01 
5.98159242E+01 
7.476990526*01 
2.492330176*02 


0. 

4. 98466035E-01 
9.969320696-01 
1.495398106+00 
1,993864146+00 
2.492330176*00 
2.990796216*00 
3.489262246*00 
3.987728286*00 
4.486194316*00 
4. 9 8466 0 35 E +00 
5.981592426+00 
6.978524486*00 
7.476990526+00 
9.969320696*00 
1.495398106+01 
1.99386414E+01 
2.492330176*01 
2. 9 9C 7962 16*01 
3.489262246*01 
3.73849526E+01 
3.987728286+01 
4. 08 74 2 148 E+01 
4. 236961296+01 
4. 3 3665450E + 01 
4.486194316+01 
4.585887526+01 
4. 7 3542733 E+01 
4.9 84660356+01 
5.981592426*01 
7.476990526*01 
2.492330176*02 


l. 8 35 63 3 3 6E *03 
2.3533176 5E +03 
3.91922864E+03 
6.569777926*03 
1.035750226*04 
1.533545686+04 
2.15284 7 42E+0 4 
2.888502036+04 
3. 720537946+04 
4.60524322E+04 
5.467636656+04 
6.688979546*04 
6 .5 8349062E +04 
3.986484936*04 
U 202229326+04 
•3.5 0268281E+O4 
•5.103319276*04 
•6.066934526 +04 
•7.196203076*04 
•9. 181 1389 96*04 
•1.090252576+05 
■1.310058216+05 
•l . 3682043 3F +05 
•1.278651686*05 
-1 .0 39311856+05 
-5.599488006*04 
•3.148966096+04 
•1. 212318346+04 
-4.961302036*03 
-1.652578416+04 
-2.550797666*04 
•3.452846736+04 


2. 577457926+03 
2.571014876*03 
2 .5 2707 580F +03 
2.368758426*03 
1.957913796*03 
1.081067176+03 
•5.668159486+02 
•3. 393 34424E+03 
•7. 89912 9 9 4E 403 
•1.462229626+04 
•2.400852636+04 
-5.081876596*04 
•8 • 2 88236 3 OE *04 
-9.744966296*04 
■1 .316086126*05 
-1.237649626*05 
-1.151172066*05 
-l. 109078346+05 
-1.083466606+05 
-1,030271746+05 
-9.368943516*04 
-6. 6756756 16*04 
-4. 5961 7963E+04 
-4.583653416*03 
1.907888656*04 
2.629542786+04 
1,501 430 60E+04 
-7.818809116*03 
-3.702696906 +04 
-7.403162326*04 
-8.392988496*04 
-9.007771506*04 


0. 

3. 8 1149 782 E +03 
7. 5122 53006+03 
1.0972 8060 E +04 
1.40249999E+04 
1. 644033686+04 
l. 7908 56 C8 6 *04 
1.802312566+04 
1.628839276*04 
1,21 73 5 3 21 E *04 
5. 241411 82 E + 03 
-1. 708661 196 *04 
-4.51755726E+04 
■5. 79244809F *04 
■8.438677166*04 
-6.601258886*04 
-5.062761206*04 
-4.179998616*04 
•3. 59046467 F *06 
-2.800057796 *C4 
-1.77139160F+O4 
1.01 30E777F + 04 
3. 1 262 14 75 F *04 
T. 31 173422 E *04 
9.708094166*04 
1. 04 725624F +05 
9. 371536156*04 
7.126833886*04 
4.265469436*04 
7.548266666*03 
-4. 41 61 42 13 E *02 
-1.476753046*03 


0. 

-6. 196601536 *03 
-1.2570*2236*04 
-1.929728516*04 
-2.654601656+04 
-3.446572856*04 
-4. 316469486 +04 
-5.265509686+04 
♦6.279361716*04 
-7.318923556+04 
•8. 313063136+04 
*9. 740939126+04 
-9.782049246+04 
-9.240545546*04 
-4.606753036*04 
2. 322528066 +03 
2.009878186*04 
3.310182696 + 04 
4. 8 l 04 2969 E +04 
7 • 181517736+C4 
9. 098668176*04 
1.150142356*05 
1.21 5371986*05 
1,137654386*05 
9. 062064626 *04 
4*386883926+04 
2.015310366+04 
1.970513316*03 
-3.219834606*03 
1.619558666+04 
3.681852886+04 
1.753576516*05 


1.75290CT4E+04 
2 • 24 72 528 2E +04 
3. 742587666+04 
6.273675796*04 
9. 89C68605E *04 
1.464428266*05 
2.055817856*05 
2.758316266*05 
3. 55285202E+05 
4,351683336*05 
5. 221208406 *05 
6.387504946*05 
6. 286770456+05 
5. 716672016+05 
1 j 148044446*05 
•3,421210076+05 
-4.973310936*05 
-5. 791495716*05 
■6,871 867746*05 
■8.76736G98F +05 
•1.041114516*06 
1.251 777396*06 
•1. 3065 38 89 F* 06 
1.221022426*06 
-0. 9246571 3E +05 
-5.34 7117166+05 
-3.007041116*05 
-I.15767874E+05 
•4,73765*226*04 
-l. 578096146*05 
•2.435832346*05 
•3.297225756*03 


2.461291 ClE+04 
2.435130336*04 
2. 412179636+04 
2 .261997676 +04 
1.869669946 +04 
1.032343106*04 
-5. 412693606+03 
* 3.240405 C6F +04 
•7.54311 34 5 E +04 
■1.396326436*05 
■2.292645576*05 
•4.852834686*05 
•7.914682666*05 
■9.305757336*05 
-1. 256769676*06 
•1. 181 8683 3E +06 
■1 .099288346+06 
■1.059091 80E+06 
-1*034634 39E +06 
•9.838370416+05 
■8.94668203E+05 
•6.374800636+05 
■4.38902824E+05 
-4.377066506+04 
1. 821899466+05 
2.511028396+05 
1 • 43 276C616+05 
•7.46641271E+04 
•3.535815096+05 
-7.069499276*05 
-8 .0 1471 363E+05 
-8.601788166*05 


PYLON PITCH FREQUENCY 


ROTOR YAWING MOMENT 


YAWING WOMEN 1 


DERIVATIVES 


M-AtPHA OCT 


1 1 H I 

7. 10 1 0261 26 + 04 
7. 195749266*04 
7. 00700225E+04. 
6.7I7C5161E+04 
6.299C71216+04 
5. 71 80144 2 E *04 
4.93250894E+04 
3.90053389E+04 
2. 59 125 35 3E +04 
1* 0041 1648F+04 
-2. 72 7 78 741 E +04 
-6.101750066+04 
•7. 3978701 3E+04 
■0.083141626+04 
-4.215424556*04 
2.424729316+04 
•1.60155532F+04 
■1.1463974 76*04 
•7.604998956*03 
•4. 52469132F+03 
?. 426911 72F+0? 
7. 39 366368F+03 
1.647924396*04 
2.13 7 710616 + 04 
2.229185756+04 
1.951456026*04 
I. 4371 723 1E+04 
8.171516176*03 
1.205C441 36*03 
•5.640110276+01 
•5. 650147566*01 


DERIVATIVES 


N- ALPHA OCT 


III U 

•1.187113346+05 
-1.204O9O52F+O5 
•1.23220389E+O5 
■ J* 77137943E + 05 
-1.320503516*05 
■1.378203146*05 
1.441047146*05 
■1.503700436*05 
•1.55 7903446*05 
■1,592 563986*05 
•1. 555089526+05 
•1.338559316*05 
-1.180163466*05 
-4.412662846+04 
1.48 311 7396+03 
9, 62599330E+03 
1.268287676+04 
1.535919426+04 
1. 965413 8 3E+04 
2. 324C 86966+04 
2.754212336*04 
2.839430096+04 
2.564054376*04 
1.995467606+04 
9.337904856+03 
4. 19 6 526 04 E+03 
3.973668006+02 
-6.168355216+02 
2.585539926+03 
4.702307036*03 
6. 718781646*03 



APPENDIX D 


PROPROTOR OSCILLATORY FLAPPING DERIVATIVES 

Tip-Path-Plane Flapping Derivatives 

The longitudinal and lateral tip-path-plane flapping associ- 
ated with a sinusoidal pitching oscillation of the pylon follow 
directly from Eqs. C-8a and C-8b of Appendix C. These flapping 
components, like the proprotor forces and moments, are algebrai- 
cally complex quantities indicating that the total longitudinal and 
lateral flapping have components which are inphase (or 180° out of 
phase) with both pitch angle and pitch rate. The maximum value of 
a^ or b^ flapping inphase (or 180° out of phase) with the pitch 
angle is given by the real parts of the complex quantities; the 
maximum value of or b 1 flapping inphase (or l 80 ° out of 

phase) with the pitch rate is given by the imaginary parts of the 
complex quantities. Dividing the real parts of a^ and b^ by 

<j) and the imaginary parts by cxj> the resulting quantities 
y o y o 

constitute the tip-path-plane flapping derivatives due to pitch 
angle and pitch rate, respectively. 

Blade Flapping Derivatives 

The relation between blade flapping and tip-path-plane flap- 
ping can be written in terms of complex flapping amplitudes as 

(3 = 6^ sin \p - b^ cos ip (D-l) 


k96 




1*97 


Writing 

3 - 3 -^ + 132 
*L * f l + if 2 

S 1 + ig 2 ( D -2) 

Eq. D-l becomes 


B = 3 ± + i3 2 - sin ip - g 1 cos ip + i(fg sin ip - e 2 cos ♦) 

(D-3) 

The azimuthal position for which the total blade flapping g is a 
maximum is defined by establishing the \ p for which 3 is an 
extremum; that is, the ip which satisfy 

||jr = f 2 cos ip + g 1 sin tp + i(f 2 cos tp + gg sin tp) = 0 (D-k) 


Since Eq. D-U is complex there are really two extremum situations: 
3-^ is an extremum for the \p which satisfy 


Real 


£ 

dtp 



0 


(D-5) 


and g„ is an extremum for the ip which satisfy 


Imag 


dg _ dg 2 
dtp “ dtp 


(D-6) 


Whether the extremum are a maximum or a minimum is determined by 
substituting the t p which are zeros of Eqs. D-5 and D-6 into 



498 


Then 


difr dy 

,2yt d 2 8„ 

dfS p 2 

Imag — £ = — 5 - 

dijr dip 


- f sin ip + g 1 cos ip 


= - f 2 sin ip + g 2 cos ip 


p » p 
dy dip 


d 2 e i d 2 8 2 
dip 2 * dip 2 


> 0- 


< 0 - 


- minimum 


maximum 


(D-7) 


(B-8) 


In this way the azimuthal position where blade flapping is alge- 
braically a maximum and a minimum due to pitch angle and pitch rate 
and the associated values are determined. It is to be noted that 
the maximum blade flapping due to angle of attack does not occur 
at the same azimuth as the maximum flapping due to pitch rate. 

Dividing the real parts of Eqs. D-2 by <p and the imaginary 

y o 

parts by axf> and defining 
y o 


f,/* 

1 y o 

= f la 

w 0 

* g la 


f 0 /uxp - f 0 
2 y Q 2q 

e 2 /“»y o 

“ S 2q 

(D-9) 

Wo 



= e 2q 


as for 

B la “ d 

8 rt are given by 
2q. 



B lo, = V 

-2 + J 2 

f la e la 


(D-10a) 


A 



j*99 


6 2 9 * V4q + 4 (D - 10b) 

If 0 lo and 8X6 calculated 'by means of the operation 

1 

g, + ig„ =(f, + if„ ) 2 + (g, + ig„ ) 2 (D-ll) 

M la p 2q |_ la 2q' V6 la 6 2q' J v ' 

the 3 la of Eq. D-10a agrees with that from Eq. D-ll. However, the 
value of from Eq. D-ll corresponds to the ip position at 

which g is a maximum and is therefore not the maximum value of 



Computer program ROTDERU (Appendix G) calculates both the tip- 
path-plane derivatives given by Eqs. D-9 and the blade flapping 
derivatives of Eqs. D-10 as a function of both pylon pitching and 
yawing frequency. A sample output listing is given in Table D-l. 

The corresponding input is included with the program listing in 
Appendix G. 

Blade Steady-State Flapping 

The steady-state tip-path-plane and blade flapping derivatives 
are obtained by setting the pylon pitch frequency to zero. Consider 
the blade flapping derivative due to constant shaft angle of attack. 
This is given by 

6 ic I > »« - V f L ♦ 4 (D - 12) 

«(aFO 

Assuming a symmetric hub restraint and taking the swashplate/ 
pylon coupling and proprotor precone to be zero. 


A 
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f la * 


F 2 X 2 A A 

i 


Kj + 2?^^ tan fig + F 2 |(B 3 tan fig) + 


4 


(D-13a) 


-F. 


g la ~ 


X X 2 AgtKg + Fj^Bg tan fig] 


+ SF^gKjj tan fig + F 2 


(B tan 6,) + A 2 

. 3 3 5J 


Hence, 




Ii£h 


F B A B ■>■ (1% ■>• FjB^ tan 


'] 


Kj + SF^gKjj tan fig + F 2 [(Bg tan fig) + 

Now, from Eq. B -6 of Appendix B, 


A 2 

5j 


from which 


“t ‘ 1 “ ~2 + | Y S 3 tan 6 3 
R 


^I R fi 2 (to 2 - 1)J = [Kg + F^Bg tan fi, 


(D-13b) 


(D-lU) 


(D-15) 


= k| + 2F 1 BgK H tan fig + F 2 B 2 tan 2 5 


3 

(D-16) 


where F 1 has the same definition as in Appendix C. Using Eq. 
D-l6 


B a " r 


F 1 ** A 3 


r i A 5 + l 1 /^ - ^ 


(D-17) 


A 
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or, finally, 33/ 8a as a function of blade flapping natural fre- 
quency is given by 


M = 

3a 


X 2 A, 


A 2 + ± 


- 1) 


1 

2 


(D-18) 


The expression analogous to that in Eq. D-l8 for the case in 
which a representative section aerodynamic theory is employed for 
the blade loading is given by 



1 + 


p 

tan $ 

8(S 2 - 1) 

Y cos $ 


1 

2 


(D-19) 


Hub restraint end/or pitch- flap coupling are seen to decrease 

flapping by detuning the blade flapping natural frequency from one- 

per-rev so that it is not in resonance with the one-per-rev airload 

moments arising from shaft angle of attack. For zero hub restraint 

—2 

it is to be noted that since (lo^ - l) enters as a square in the 
expressions for 38/3a, either positive or negative pitch-flap 
coupling (negative or positive 6^) are equally effective in 
reducing flapping. 


A 
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TABU! D-l 


PR OP ROTOR OSCILLATORY HAPPING DERIVATIVES SAMPLE OUTPUT LISTING 


rotor rpm 


VELOCITY 


ADVANCE RATIO 

lcck number 

INFLOW ANGLE 


FT/ SEC 

KNOTS 

KEAS 

J 


PHI 

2*380000006+32 

5.912162166+02 

3.500000006+02 

3® SOCOOOOOE *02 

3.871327406+00 

4.545474856+00 

5. £674176 IE *01 

**** BLADE FLAPPING 

FREGUENCYICVCLES/REVI * .756 


**** BLADE DAMPING I PERCENT CRITICAL! » 

20.197 


PYLON 

******* 

PITCH FREQUENCY 

PRQPROTOR DYNAMIC FLAPPING DERIVATIVES DUE TO PYLON PITCH 
COMPONENT FLAPPING DERIVATIVES 

TCTAL FLAPPING DERIVATIVE 

CYCLES/REV 

CPS 

RAO /SEC 

Al/PHIY 

Al/PHIY DOT 

Bl/PHIY 

Bl/PHIY OOT 

86 T A/PH I Y 

BET A/PH l Y OOT 

U0000E-04 

3.96676-04 

2.492 3E -03 

8.76456-01 

2.88026-02 

1.23066*00 

-3.58306-01 

1.51086*00 

3.5945F-01 

5.00006-02 

1.9833E-Q1 

I.Z4626+00 

9. 45646-01 

2 .020 66-02 

1.19646*00 

-3.63986-01 

1.52506*00 

3.64546-01 

1.00006-01 

3.96676-01 

2.4923E 400 

i. 15 196*00 

•8. 57756— 03 

1.06696*00 

-3.7908E-01 

1. 5701 E *00 

3.79176-01 

2.00006-01 

7. 9333E-C 1 

4.9847E+00 

1*75476+00 

■1*55096-01 

1.4492E-01 

-3.66686-01 

1.76C76+00 

4.16626-01 

4.0000F-01 

1.58676*00 

S.9693E+O0 

-1.93696-01 

-2.43 296-01 

■1,76956*00 

-3.6366E-02 

1. 7801 6 *00 

2.45996-01 

6.00C06-QI 

2. 3 800 E *00 

1.49546*01 

-1* 13666*00 

■l.nm-oi 

■1.17376*00 

2.68906-02 

1.63396*00 

1.14346-01 

R. 00006-01 

3.17336*00 

1.9939E401 

-1.36866+00 

-6. 4023E-02 

-8.9894E-01 

2. 69586-02 

1.6375E*00 

6.54676-02 

1 ,00006+00 

1* 9667 E *00 

2. 492 3F 401 

-1.52276400 

-4.46876-0Z 

-8.12566-01 

2.5*776-02 

1.72596*00 

5.14156-02 

l 7000F+00 

4c. 7600E *00 

2.99O8E+0I 

■1.73726*00 

■3.57696-02 

-8,23606-01 

2.71236-02 

1.92266*00 

4.48B9F-02 

l ,40006+00 

5.55336+00 

3.48536+01 

-2.16236+00 

3.10126-02 

•8.74916-01 

3.5286F-02 

2.33196*00 

4.69796-02 

1,60006*00 

6.3467F*00 

3.9877F+01 

■3* 3537£*00 

-7 .99686-02 

-4.62996-01 

5.98156-02 

3.38536*00 

6.14096-02 

1.80006*00 

7. 1400 F +00 

4.4B62F+01 

■2.6265E *00 

4.72 10E-02 

2.26716*00 

3.46826-02 

3. 46 96 f *00 

5.97856-02 

2. 30006+00 

7.9333F 400 

4.98476*01 

■9.10BOF-01 

2.56 54 £-02 

1. 40836*00 

-1.5911F-03 

1.47716*00 

7.37046-02 

2* 20O0E+O0 

B.7267F+C0 

5.4 8316 401 

-7.66436-01 

1.2302E-02 

7.8804E-01 

-4*20466-03 

1.09936 *00 

1^30016-02 

2.4000F+00 

9.52006*00 

5,98166+01 

-7.88396-01 

6.8798E-03 

5.11876-01 

-3. 57396-03 

4. 39996-01 

7. 13276-03 

2.60006*00 

1.0313E+C1 

6.4BO1F+01 

-8.22516-01 

4,24466-03 

3.65736-01 

-2.83386-03 

5.00166-01 

5. 12Q3E-03 

2.8000E+00 

I. 1107 E 4Q1 

6.97656*01 

-8*5 155E-01 

2. 83226-03 

2.77776-01 

-2.25946-03 

8.95 716-01 

3. €2306-03 

7.0000E+00 

1.19006*01 

7.4770E+01 

-8.74556-01 

1.9759E-03 

2,19986-01 

-1.83306-03 

*5.01796-01 

2.6952E-03 

5.0000E+00 

1.9833E+C1 

I.Z462E402 

-9.61146-01 

1.88336-04 

5.551 36-02 

-4.64186-04 

9.6274E-01 

5.C0936-04 

1. 30006*01 

2.96676+C1 

2.49236*02 

-9.90896-01 

1 .C561E-05 

1.22016-02 

-9, 85C3E-05 

5.9096E-01 

9.90676-05 


PYLON YAW FREQUENCY 

PROPROTOR DYNAMIC FLAPPING DERIVATIVES DUE TO PYLON YAW 
COMPONENT FLAPPING DERIVATIVES 

TOTAL FLAPPING 06R1VATIVE 

CYCLES/REV 

CPS 

RAO /SEC 

A1/PH1Z 

Al/PHIZ DOT 

81/PHIZ 

Bl/PHIZ DOT 

B6TA/PHIZ 

BET A/ PH I 2 DOT 

l • 00O0E-04 

3.96676-04 

2.4923E-C3 

-1.2306E+00 

3.58306-01 

8.76456-01 

2.88026-02 

1.51086+00 

3.59456-01 

5, 1000E-02 

1.9833E-01 

1.24626 +00 

■1.19646+00 

3. 63586-01 

9.4564E-01 

2. 02066-02 

1 . 5250E+00 

3.64546-01 

l.ooroE-oi 

3.56676-01 

2.4523E+00 

-1.06656+00 

3. 79086-01 

1.15196+00 

-8.57756-03 

1 ,57016+00 

3.19176-01 

2.70006-01 

7.93336-0i 

4.98476+00 
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APPENDIX E 


APPLICATION OF THE SUBSTRUCTURING CONCEPT TO 
AN AIRCRAFT NATURAL MODE ANALYSIS 

Direct and component mode synthesis procedures for natural mode 
vibration analysis have been described in Chapter 6. Both methods are 
based on the substructuring concept wherein the continuous structure 
is divided into smaller components , or substructures , a mathematical 
model (either discrete or modal) of each substructure established, 
and the mathematical model of the complete structure arrived at by 
reassembling the components in a manner consistent with the equations 
of constraint which enforce deflection compatibility at the inter- 
faces of the components. Formation of the substructure mass and 
stiffness matrices and the establishment of the equations of con- 
straint are aspects of the overall problem which are common to 
both methods of analysis. To illustrate the manner of establishing 
the substructure mass and stiffness matrices and the mechanics of 
setting down the equations of constraint the substructuring 
procedure is applied herein to an aircraft structure which admits 
of a stick model representation for natural mode analysis. The 
aircraft configuration selected to form the basis of this exercise 
is the Bell Model 266 tilt-rotor VTOL design evolved during the 
Army Composite Aircraft Program. 

Stick Model Representation of the Model 266 Tilt-Rotor 

An artist’s conception of the Bell Model 266 tilt-rotor design 
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has been given in Fig. 1-6 of Chapter 1. This aircraft is depicted 
in silhouette form in Fig. E-l along with the stick model established 
using the beam, spring, and rigid-body components described in 
Chapter 6. The fuselage, wing, and empennage structures are replaced 
by nonuniform beams lying along the elastic axes of the respective 
components. Since the fuselage elastic axis has two changes in 
slope, three beams are used to represent the fuselage structure. The 
wing carry- through structure is idealized as a beam-spring, its 
(rigid-body) inertial properties being combined with the inertia 
matrix of the second fuselage beam. The pylon structure, consisting 
of the transmission/engine assembly, is treated as a rigid body 
inert ially. Elastically, the pylon structure from the conversion 
axis to the front of the transmission case is assumed to be rigid 
while the portion between the front of the transmission case and 
the proprotor hub is treated as a beam-spring. The proprotor blades 
are assumed to be rigid. Since the blades are rigidly attached to 
the hub in a gimbaled proprotor design (such as the Model 266) the 
proprotors can then be treated as rigid discs in the analysis. 

The hub is taken to be rigidly attached to the mast.* The 
geometric offsets between the fuselage elastic axis and the wing 
carry- through and vertical tail elastic axes, between the outboard 
end of the wing elastic axis and the conversion axis , and the 
conversion axis itself are also assumed to be rigid in the analysis. 

*For illustrative purposes , the manner in which one could treat 
a proprotor /hub-assembly which is spring-connected to the mast will 
also be described. 
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These particular rigidities are enforced mathematically via equations 
of constraint, as will subsequently be shown. 

Since the substructures are treated as distinct and separate 
components their structural properties and deflection characteris- 
tics are defined relative to axes local to each component. These 
local right-handed axis systems are also employed to establish the 
deflection compatibility equations at the junctions of the sub- 
structures. With reference to Fig. E-2 the set of local junction 
coordinate axes used in setting down the equations of constraint is 
identifiable by subscripts. Each of the directions so indicated is 
taken to be positive. Vectors representing positive rotations 
a r> 3 r > Y r (not shown) about x^, y^, z^, respectively, are taken in 
the same direction as vectors representing positive x^, y^, z^. 

A short-hand notation for a column vector of these junction or 
connection coordinates is given by {x}^ herein, where 
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Several auxiliary right-handed coordinate systems (which are not 
associated with degrees of freedom) are employed to facilitate 
setting down the equations of constraint. These are also shown in 
Fig. E-2 and are distinguished by Roman numeral superscripts. A 
short-hand notation for a column vector of these auxiliary connec- 
tion coordinates is given by {x} s herein, where 
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(E-2) 


s = i ,ii , . . . ,vi 


Employing the available structural data* lumped-mass /stiffness 
discretizations were established for the fuselage, wing, and 
empennage beams. These are summarized in Tables E-l to E-3. 

Inertial properties of components treated as rigid bodies inertially 
are given in Table E— It while the elastic properties of beam-spring 
components are listed in Table E-5* A summary of the pertinent 
geometric quantities is contained in Table E-6. Utilizing aircraft 
symmetry about a vertical plane through the center of the fuselage 

*Exploratory Definition Final Report, Model 266 Composite 
Aircraft Program, Volume 7 - Dynamics, Report 266-099-207, Bell 
Helicopter Company, July 1967. 
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attention is directed to separate symmetric and anti-symmetric 
formulations. A consequence of this analytical separation into 
symmetric and anti-symmetric problems is the identification of 
several displacements and rotations which can be set to zero 
apriori in both formulations. Also, either on the basis of physi- 
cal considerations or simply for expediency, the displacements and/ 
or rotations in some coordinate directions can be discarded. For 
this reason it is convenient to distinguish the coordinates con- 
stituting the vectors {X} r from the actual (nodal) degrees of 
freedom. The nodal degrees of freedom are denoted by q^ herein. 
The column vector containing all these freedoms, {q}, may be 
directly identified with the vector {z} in Chapter 6. 

Symmetric Formulation 

The degrees of freedom employed in the symmetric analysis are 
identified in Table E-7. The airframe is partitioned into 10 sub- 
structures having a total of ikk degrees of freedom. 

(a) Constraint Equations 

The substructures are physically connected to form the total 
structure by requiring deflection compatibility at the interfaces 
of the substructures. For compatibility the deflection vectors of 
adjacent substructures at their point of mutual attachment must be 
equal when expressed in a common coordinate system. The common 
coordinates considered here are one or the other of the local 
coordinate systems of the contiguous substructures . Assuming the 
displacements and rotations to be small, the deflection vectors of 
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adjacent substructures at their point of mutual attachment are re- 
lated by a diagonally partitioned rotational transformation matrix 
[R] . Since rotational deflections can be treated as a vector if 
the rotations are small the rotational deflections of adjacent 
substructures at their mutual point of attachment are related by 
the same coordinate rotation matrix as the displacements. The 
two submatrices comprising [R] are thus identical and are denoted 
herein by [T] . For the general three-dimensional problem with six 
coordinates associated with each station, [R] is of order 6x6 and 
[T] is of order 3x3. 

To aid in setting down the equations of constraint a series of 
auxiliary sketches showing the substructure junctions and associated 
coordinate systems will be employed in conjunction with Fig. E-2. 

For illustrative purposes somewhat more detail is indicated in the 
example herein than would normally be required in practice. 

Fuselage : 



At the junction of fuselage beam #1 and # 2 the relation expressing 
the equality of the deflections at the left end of beam #2 and the 
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deflections at the right end of beam #1 relative to 
local to beam #2 has the form 
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where the connection coordinate vectors {x}^ and 
identified with degrees of freedom according to 
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and the appropriate coordinate rotation matrix [T^] 

-sin 0, 


H 3 


cos 0^ 0 


sin 0^ 0 


0 

cos 0 n 
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{X> 2 are 


(E-U) 


is given by 


(E-5) 
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Since there are no displacements or rotations out of the vertical 
plane of symmetry in a symmetric formulation y^ o^, y , y 2 , a^ t 
and y 2 are zero. The minus signs associated with q.^ and q 1Q 
in Eqs. E-4 have been introduced in order to have the usual defini- 
tion of positive slope. This has been done here merely for 
convenience. Several sign changes of this type will be introduced 
during the course of this development for similar reasons. 

Expanding Eq. E-3 using Eqs. E-4 and E-5, the resultant constraint 
equations at this junction are given by 

*24 = *11 cos 0 1 " *5 sin 6 i 
0=0 

*12 “ *11 Sin 9 1 + * 5 C0S 9 1 

(E- 6 ) 

0 = 0 

“*18 = “*10 
0 = 0 

At the junction of fuselage beams #2 and #3 
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we write, in a similar manner, 



(E-7) 
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thereby arriving at the constraint equations 


*24 = %1 C ° S 0 2 " % Sin 9 2 
0 = 0 


«1T * sin 9 2 + ’as 005 9 a 

0 = 0 


( E-10 ) 



The equations relating the deflections at the right end of fuse' 
lage beam #2 to the deflections of the inboard end of the wing 
carry-through beam-spring are given by 
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( E-12 ) 


Eq. E-ll leads to the constraint equations 


q 24 “ ” q U2 ” L 1 g 44 
0 = " L 1 %5 


q 17 " q 43 
0 = ~%5 


(E-13)* 


*Note that this set of constraint equations contains one redun- 
dant equation. This redundant equation need not be discarded, 
however, since use of the method of Walton and Steeves (cf. Chapter 
6) for establishing independent system coordinates requires no 
special consideration in this case. 
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_q 23 = q 44 
0 = q 46 


Wing Carry-Through Structure : 

A x fi 
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Wing root B.L. 
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(E-l4) 


On the basis of considerations related to its structural configura- 
tion, twisting of the wing carry-through structure is negligible 
in a symmetric mode of oscillation. Hence, the beam-spring 
representation of the wing carry-through structures is taken to be 
rigid in torsion. This "constraint" is specified by writing 


*50 " * 0 (E-15) 

Axial extensions of this member are also assumed to be negligible. 
Since x,- = 0 (cf. Eq.. E-12) this implies the additional constraint 


*47 " 0 


(E-16) 
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and 

(E-19) 

The above lead to 

%1 s *88 cos 6 3 " *67 Sin 0 3 

%Q = <188 8in 0 3 + *67 C0S 0 3 

% 9 = I53 

(E-20) 

I50 ' 4 8l 008 S 3 + «60 Bin 6 3 

q 5 l - q 61 sin 83 - (Jg,, cos 83 

? 52 “ 5 T 1 t 



An expression relating the coordinates at the last wing elastic 
axis station, {X}g, to the intermediate (auxiliary) coordinates 
{X} 1 is given by 


[ t 3 ] = 


cos 0. 


sin 0. 


-sin 0, 


cos 0, 
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As pointed out earlier , the auxiliary coordinates {X} 1 are not 
degrees of freedom hut have been introduced here merely for 
convenience in arriving at the equations of constraint. The 
appropriate values of {X}g and [T^] to he used in Eq. E-21 are 
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From the sketch above thfe intermediate coordinate vectors {X} 1 and 
{X} 11 are seen to he related as 
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_1 _3. 


= [@]{x} i 


(E-24) 


If the conversion axis (length in the sketch) is taken 

to be flexible and treated as a beam-spring we would have 


(x) 11 = {Q}, 


where {Q) ri . is a column vector containing the degrees of freedom 

LA L 

associated with the inboard end of the conversion axis beam- 
spring. The appropriate constraint equations would then have the 
matrix form 


{X}g = [®][©HQ} ( 


Similarly, at the outboard end of the conversion axis beam-spring 
we would have 


{X } 111 = {Q}, 


where {Q} p . is a column vector containing the degrees of freedom 
0A R 



519 


for the outboard, end. If the conversion axis is taken as completely 
rigid {X}** and {X}*^ are not identified with degrees of freedom 



Herein, the conversion axis is assumed to be completely rigid so 
that Eq. E-28 is applicable. The portion of the pylon structure 
between the conversion axis and the front of the transmission case 
is also assumed to be rigid for the analysis. The flexibility of 
the pylon mast is accounted for by representing it as a beam-spring. 
However, the only elastic deformations of the mast which will be 
admitted analytically are vertical and lateral bending, motion in 
the remaining two directions being solely of the rigid-body type. 



Although a portion of the pylon structure forward of the conver- 
sion axis is treated as though it were rigid elastically the 
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coordinate axes fixed to the shaft (axes with subscript 9 in the 
sketch) will he identified with actual degrees of freedom. This is 
necessitated by the (arbitrary) decision to define the rigid body 
inertial properties of the complete pylon relative to coordinate 
axes at the position of the conversion axis/proprotor shaft axis 
intersection rather than relative to body axes at the center of 
gravity of the pylon. 
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(E-30) 


(E-31) 


On the basis of considerations in the preceding subsection and 
directly above: 


(x } 8 = [®][©]t@n©Hx > 9 


(E-32) 
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Making the appropriate substitutions into Eq. E -32 and expanding 
the resulting individual constraint equations become 

q 88 = q 89 cos 0 3 + sin 0 3 cos e 4 " q 9 i sin 0 3 sin e l* 

+ 9^3 sin sin 0 3 + L 3 cos 0^ 

" 9^ cos 0^1^ sin 0 3 + L 3 cos 0^ 

^73 = “ q 89 Sln 6 3 + ^0 cos 0 3 cos 0 4 " % cos e 3 sin e 4 
+ (^3 sin 0^[L^ cos © 3 - L 3 sin 0 3 ] 

- 9^ cos cos 0 3 - L 3 sin © 3 ] 

(E- 33 ) 

90j - 9p 2 cos © 3 - q^ 3 sin © 3 cos 0^ - q^ sin © 3 sin 0^ 

q 59 = *90 sin 0 4 + ^1 cos 0 4 + L 3 q 92 " *93 L 4 cos 0 4 " ^ 4 ^ sin 0 4 

- 9 66 - -992 sin 0 3 - q 93 cos © 3 cos 0^ - q g ^ cos © 3 sin 0^ 

q 80 = “*93 sin 0 4 + 994 cos 0^ 
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Pylon Mast : 



The pylon mast , the portion of the drive shaft "between the front of 
the transmission case (to which the conversion actuator attaches) 
and the proprotor huh is treated as a beam-spring. Since the 
length corresponds to the segment of the pylon which is 

treated as rigid {X}_ and {x}^q 8x6 re lated as 
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where {X}^, containing the degrees of freedom associated with the 
aft end of the mast beam-spring, is given by 
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Expanding Eq. £-3^ and using Eqs. E-30 and E-35 leads to the 
constraint equations 
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At the forward end of the mast : 
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To analytically suppress the axial and torsional deformations of 
the mast yet allowing for rigid-body motions in these directions 
we write 


q 101 “ **95 " ° 
q 104 “ ^98 = 0 


(E-38) 


These equations stipulate that the relative axial and torsional 
deformations between the ends of the mast are zero. 


P-roprot or : The coordinates describing the proprotor disc, -(X} ^ , 

are taken in the same sense as Hence 
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Since the proprotor/huh combination is rigidly fastened to the 

mast*, {X} = {x} and the constraint equations become 

11 R 


*The case of a spring-connected hub will be described later. 
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Since the offset distance is taken to be rigid the intermediate 

coordinate vectors {X}^ v and {X} v are related according to 
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At the base of the vertical tail elastic axis, {X} V and {x}^ are 
related as 
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Assembling the series of transformation matrices indicated above: 


{ x> 12 = [©][©][0]{x> 
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from which we obtain 


%1 = q 113 F cos ®2 COS 6 5 + Sin 0 2 sin 9 5^ 
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* Vs H 008 e 2 
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At the junction of the vertical and. horizontal tail elastic axes 
{X> ll+ and {X} V1 are related as 
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and [T^] being given by 
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Eqs . E-50 and E-53 imply the matrix relation 

{X > l4 = [®][©]{X > 15 (E-56) 

from which, upon substitution of appropriate quantities, there results 
0 = q lUU cos 0 6 + q l32 sin Sg 

g 115 = ~*i44 cos e 5 sin e 6 + *132 008 0 5 008 e 6 + *124 sin 0 5 

*123 = *144 sin 0 5 sin 0 6 ' *132 8in 0 5 cos 0 6 + *124 008 e 5 , , 

\E-5T ) 

-%20 * q 11.0 008 e 6 - q 128 Sin 9 6 

0 ■ " q lUo cos e 5 8in 0 6 ' q 12 » 008 9 5 008 e 6 * q 136 8in 9 5 
0 = *i4o 8in e 5 8in e 6 + *128 8in e 5 008 8 6 + *136 cos 0 5 

This completes the derivation of the equations of constraint 
for the symmetric formulation. For easy reference these equations 
are summarized in Table E- 8 . Since there are 49 constraint equations 
and 144 degrees of freedom, the matrix of coefficients of the 
constraint equations, [C] , will be of order 49 x 144. 

(b) Rigid-Mass Components 

Wing Carry-Through : The rigid body inertial properties of the wing 

carry-through structure are combined with the inertia matrix of 
fuselage beam #2 by treating the center of gravity of the carry- 
through structure as rigidly attached to the last (right hand) 
station of that beam, for which (from Eq. E- 8 ) 


A 
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r > 

X 


q 2k 

y 


0 

z 


*17 

a 


0 

3 


"*23 

Y 


0 

v. J 

3 

L J 


(E-58) 


The results of Appendix A will be employed to establish an equiva- 
lent inertia matrix relative to the axes {X}^ using the inertia 
properties defined relative to body axes at the center of gravity. 
Assuming that the principal body axes at the center of gravity of 
the carry-through structure are parallel to axes x^, y^ > and z^ 


the direction cosines 



(cf . Eq. A-13) axe given by 



From Table E-6 we have 


i - j 
i ¥ j 


(E-59) 



(E-60 ) 


Substituting Eqs. E-59 and E-60 into Eq. A-13, the matrix which 
effects the desired transformation assumes the form 


A 
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l 0 0 | 0 46.6 0 

Oio | -1+6.6 0 0 

0 0 1 0 0 0 

[0] = — 1 — 

0 o 0 I 1 0 0 ^ E " 63 

I 

0 0 0 I 0 1 0 

I 

_0 0 0 | 0 o 1 

For comparative purposes {x}_ herein is equivalent to {X} in 

3 o 

Appendix A. Using the data supplied in Table E-4 the inertia 
matrix of the carry-through structure relative to body axes at the 
center of gravity is given by the diagonal matrix 


[M ] 
eg , 


725.2 


Substituting Eqs. E-6l and E-62 into Eq. A- 6 gives 


q 24 q i7 


0.88 0.0 


0.0 0.88 


1 + 0.6 0.0 2595.0 



#[M ] herein is equivalent to [M] of Eq. A-6. 
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Absorbing the minus sign associated with q^ into the inertia 
matrix* and reordering the degrees of freedom finally yields 


M 


CT 


q 17 

^23 

'h.k 

.88 

0 - 

0 

0 

2595 

-40.6 

0 

-40.6 

.88 


q 17 

^3 

*24 


(e-64) 


as the matrix of additional terms to be added to the diagonal 

inertia matrix of fuselage beam #2. The corresponding stiffness 

<s 

matrix is null since there is no strain energy associated with any 

rigid body motion. 

% 

Pylon : ^As indicated earlier the rigid body inertial properties of 
the pylon will be defined relative to a coordinate axis system at 
the junction of the conversion axis and the shaft axis rather than 
maintaining a center-of-gravity definition. Again, the results of 
Appendix A will be employed to effect this transformation. From 
Table E-6 the quantities a, b, and c for use in Eq. A-13 are given 
by 

31.2^1 

0 ) (E-6 5 

19.0 J 

™ *By multiplying the third row and column of Eq. E-63 by 
minus one. 



j 
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The principal axes at the pylon center of gravity are taken to he 
parallel to the axes x^, y^, so that Eq. E-59 is valid here 
also. The values given by Eqs. E-59 and E-65 are substituted 
into Eq. A-13 to obtain the transformation matrix [0]. Substi- 
tuting this result into Eq. A-6, using the values in Table E-4 to 
define the inertia matrix at the center of gravity, and taking into 
account the difference in orientation of the coordinate directions 
{X}p relative to those assumed in the derivation contained in 
Appendix A the desired pylon inertia matrix can be put into the form 


*89 


*90 *91 


*92 


*93 


*91. 


C«] 


Pylon 


7.25 0 0 0 137.8 -226 

0 7.25 0 137.8 0 0 

0 0 7.25 226 0 0 

0 137.8 226 16627 0 0 

137.8 o 0 0 61*17 -1*297.8 

-226 0 0 0 -1+297 8 13180 


*90 

*91 

^92 

*93 

**94 


(E-66) 


where the minus sign associated with q^ (cf. Eq. E-30) has been 
absorbed into the inertia matrix. The corresponding stiffness 
matrix is null. 


Proprotor : The proprotor is treated as a rigid circular disc. 

Since the coordinate axes at the center of gravity of the proprotor 
disc are oriented such that they are principal axes the inertia 
matrix is diagonal and can be constructed directly from the data 
supplied in Table E-4: 
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a 107 q l08 4 109 q 110 1; 


l 112 


[M] 


Rotor 


3.64 


3.64 


Null 


3.64 


28476 


Null 


14238 


14238 


*107 


q 108 


*109 


*110 


*111 


*112 


(e-6?)* 


The companion stiffness matrix is null since the proptotor hub is 
taken to be rigidly attached to the mast* This matrix would not 
be null if the hub were spring-connected to the mast, as will be 
Remonstrated below. 

(c) Springs 

The wing carry- through structure and the pylon mast are both 
treated elastically as beam-springs , their inertias being incorporat- 
ed with other components. 


Wing Carry-Through : Since x^ has been set to zero apriori (cf. 

Eq. E-12) the appropriate beam-spring stiffness matrix is of 
order 11 x 11 and is given by that in Fig. 6-5 of Chapter 6 with 
the first row and column struck out. The resultant matrix is 
shown in Fig. E-3 along with the ordering of the degrees of freedom. 
Tables E-5 and E-6 contain the necessary data to evaluate the terms 
of the matrix. Constraint Eqs. E-15 and E-l6 in conjunction with 

*The minus signs associated with q^Q and q.^ (cf. Eq. E-39) 
have been absorbed into the inertia matrix. 
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the 11 x 11 stiffness matrix given in Fig. E-3 imply that twisting 
and both the elastic and rigid-body axial motions of the beam- 
spring representing the wing carry-through structure are removed 
as degrees of freedom, in accordance with earlier discussions. 

An alternate approach in this situation would be to addition- 
ally strike out the rows and columns corresponding to q^ , thereby 
reducing the matrix of Fig. E-3 to one of order 10 x 10, and then 
deleting constraint equation E-l6. 

Pylon Mast : The stiffness matrix of the pylon mast beam-spring is 

given in Fig. E-4. Again, Tables E-5 and E-6 contain the data 
required to evaluate the individual terms of the matrix. 

Some comments are included here to indicate the manner of 

treating a proprotor/hub assembly which is connected to the mast 

by springs. For illustrative purposes assume that the proprotor/ 

hub combination is allowed to flap longitudinally and laterally 

with respect to the mast, the flapping motion being restrained by 

linear springs K and K. , respectively (cf. Chapter 3). Since 
a l D 1 

longitudinal and lateral angular motions of the proprotor disc 
relative to the mast are permitted the last two constraint equa- 
tions given in Eq. E-Uo must be deleted. Recalling the treatment 
of springs in the spring-mass analogy employed in Chapter 6 to 
illustrate the manner of including fuel slosh in a launch vehicle 
vibration analysis we require an expression for the strain energy 
stored in the springs. The appropriate expression here is given by 


4 
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V S " 2 K ai (q l05 ' q lll ) + 2 K b 1 ^ q 106 " q ll2 )2 ( E— 68) 


Substituting Eq. E-68 into Lagrange's equation then leads to 


l 105 q 106 q lll q 112 


K 


“1 

0 


[AK] = 


-K 


0 

-S, 


-K 


K 


-v 


V 


*105 


q 106 


*111 


1 112 | 


(E -69) 


as the matrix of spring terms to be added to the partitioned 
system stiffness matrix, [K] . Note that the negative terms in 
Eq. E-69 couple the stiffness matrices for the pylon mast and 
proprotor substructures . 

Anti-Symmetric Formulation 

The considerations related to the symmetric formulation have 
illustrated the manner of establishing substructure mass and 
stiffness matrices and the mechanics of setting down equations of 
constraint. A corresponding derivation for the anti-symmetric 
case would, for the most part, be repetitious. For this reason a 


j 
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summary-type treatment, for the most part listing only final 
results which are different from the symmetric case , is given here • 

The anti-symmetric formulation is based on the same stick 
model and the same stations employed in the symmetric formulation, 
leading to a problem having 165 degrees of freedom. These freedoms 
axe identified in Table E-9. 

(a) Constraint Equations 

For anti-symmetric motions of the airframe the twist of the 
wing carry-through structure is not negligible and the beam-spring 
which is taken to represent it must now be permitted freedom in 
twist. Although axial extensions of the wing carry-through are 
still negligible the ability to translate axially as a rigid body 
must be provided for. The final constraint equations , 48 in 
pumber, are summarized in Table E-10. 

(b) Rigid-Mass Components 


Wing Carry-Through: Here the vector {x}^ is given by 


r o ^ 


{x> 3 = 




*21 


*33 


0*0 


(E-70 


so that 
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'V 

q 27 

q 33 



,88 

0 

-40.6 


q 21 

Mct - 

0 

0 

o 

0 


q 27 


-40.6 

0 

1870,0 


q 33 


Pylon : 


q lo6 

q l07 

q 108 

q 109 

q 110 

q lii 



ft 

7 25 

0 

0 

0 

137.8 

-226 


q 106 

0 

7 ,25 

0 

±37.8 

0 

0 


q 107 

0 

0 

7 ,25 

226 

D 

0 


q 108 

0 

137 8 

226 

16627 

0 

0 


q 109 

.137 8 

0 

0 

0 

6417 

-4297-8 


q 110 

-226 

0 

0 

0 

-4297 ,8 

13180 


q lii 


Proprotor : 


Mrotcr " 


q 124 q 125 q 126 q 127 q 128 q 129 


3.64 




q 124 

3.64 Hull 


q 125 

3.64 


q 126 

28476 


q 127 

Bull 14238 


q 128 

14238 


q 129 


A 


(E-71) 


(E-72) 


(E-73) 






5^0 

(c) Springs 

Wing Carry-Through : Since axial rigid body motion of the carry- 

through is included in the anti-symmetric formulation the beam- 
spring representing it has a stiffness matrix of order 12 x 12 
having the form given in Pig. E-U. The degrees of freedom shown 
there, (q^ “ q 10 g), 8X8 re P lace(i b y through q^ respectively. 

Tables E-5 and E-6 contain the data needed to evaluate the individ- 
ual terms of the matrix. 

Pylon Mast ; The pylon mast beam-spring stiffness matrix is also 
given by Fig. E-4 if we replace q^ through q^g by q^g 
through q 123 respectively. Again Tables E-5 and E-6 provide the 
data required to evaluate the individual terms of the matrix. 

J£ 

Numerical Results Using the Direct Method 

The direct method of analysis was used to calculate the 
symmetric and anti-symmetric free-free modes and frequencies for 
several pylon tilt angles. A summary of these frequencies for the 
first five elastic modes is given in Table E-ll. The modal 
vectors for the first three symmetric modes for 6 q = 90° are 
listed in Table E-12. The first five symmetric modes for 
0 c = 90° are given in Fig. E-5. Corresponding results have been 
calculated by Bell.* However, since their mathematical model was 
significantly different from that employed herein a direct 


•Ibid . 




numerical comparison with their results can not he made. 

A sample input for the symmetric case with 0 c = 90° is 
included as part of the listing of the computer program package 
for the direct method of analysis in Appendix H. 

Additional Applications of the Direct Method 

Two simple applications of the direct method are included in 
some comparative studies with the method of component mode 
synthesis in Appendix F. A comparison of the results from the 
direct analysis with experimentally measured modes and frequencies 
of a model of one of the configurations is also presented there. 

The direct method of analysis as embodied in the computer pro- 
gram package listed in Appendix H has also been employed in two 
other studies. The first consisted of the determination of the 
symmetric modes of the aircraft shown in silhouette in Fig. 6-2, 
using the stick model indicated there, for use in a free-free 
flutter analysis of the wing and horizontal tail.* The second 
consisted in generating the modes of a pivoting wing for use in a 
subsequent flutter analysis. 


•Results of this work given limited distribution, 
t 

Unpublished work. 
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TABLE E-4 

COMPONENT INERTIAL PROPERTIES TREATED AS RIGID 


PROPROTOR 

Mass 

Flapping Inertia 
Longitudinal 
Lateral 

Polar Inertia 

PYLON 

Mass 

C. G. Inertia 
Pitch 
Roll 
Yaw 

WING CARRY-THROUGH 

Mass 

C. G. Inertia 
Pitch 
Roll 
Yaw 


3.64 lb-sec 2 /in 

14238 lb-sec 2 -in 
14238 lb-sec 2 -in 
28476 lb-sec 2 -in 

7.25 lb-sec 2 /in 

6950 lb-sec 2 -in 
3800 lb-sec 2 -in 
6120 lb-see 2 -in 

.88 lb-sec 2 /in 

725.2 lb-sec 2 -in 
Not Available 
Not Available 
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TABLE E-5 

STIFFNESS PROPERTIES OF COMPONENTS TREATED AS SPRINGS 


Wing Carry-Through* 
EX 

vertical 

^lateral 

GJ 


15. T X 10 9 lb-in 2 
36.9 X 10 9 lb-in 2 
12.8 X 10 9 lb-in 2 


t 

Pylon Mast 

^vertical 

El, . , 

lateral 

i 


= 2.5 X 10 9 lb-in 2 
- 2.5 x 10 9 lb-in 2 


* AE is taken to be zero as no axial elastic motion is "allowed" 

^ Both AE and GJ are taken to be zero as only rigid-body axial 
and torsional motions are admitted. 


j 



TABLE E-6 


GEOMETRIC QUANTITIES EMPLOYED IN VIBRATION ANALYSIS 


ANGLES 

9 i 

e 2 

e. 


9 ? 

e 6 

LENGTHS 


9.5° (.1658 Radians) 
5.6° ( .0977 1 * Radians) 
4.5° (.07854 Radians) 

Variable (90°-conversion angle) 

25° (.4363 Radians) 
15° (.2618 Radians) 


L'2 

l. 3 

l 4 

L 


L 


5 


Wing Carry-Through 
a 
b 
c 


46.1 inches 

42.0 inches 

17.0 inches 

17.0 inches 

55.0 inches 

28.0 inches 

15.0 inches 

0 

0 

46.1 inches 


Pylon 


a 

b 


c 


31.2 inches 
0 

-19,0 infehes 
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TABLE E-7 

IDENTIFICATION OF DEGREES OF FREEDOM FOR 
SYMMETRIC VIBRATION ANALYSIS 


FUSELAGE 
Beam #1 


*1 - *5 

Displs. 1 

Vertical Bending 

0 

1 

Slopes J 


*u 

Axial Rigid Body Translation 

Beam #2 

*12 " *17 

Displs. 1 

Vertical Bending 

*18 " *23 

Slopes f 


*24 

Axial Rigid 

Body Translation 

Beam #3 

CM 

1 

ir\ 

Displs. 1 

Vertical Bending 

*33 “ *40 

Slopes J 


*4l 

Axial Rigid 

Body Translation 


Wing Carry-Through Structure 

*42 ” *52 
WING 


Q r-o - q. cr , 

Displs . 1 


53 ^59 

> 

Vertical Bending 

*60 ' *66 

Slopes J 


*67 ” *73 

Displs 

Chordwise Bending 

0 

vP 

1 

^Sr 

c r 

Slopes j 


*81 * *87 

Torsion 


*88 

Axial Rigid Body Translation 





549 


TABLE E-7 (Concluded) 


PYLON 


Transmission/Engine Assembly 


%9 ~ ^4 

Mast 


Rigid Body Translations & Rotations 


**95 “ q 106 
PROPROTOR 

q 107 “ q 112 
EMPENNAGE 

Vertical Tail 

q 113 “ q 117 
q ll8 " q 122 

r a 

q 123 

Horizontal Tail 

q 124 " q 127 
q 128 " q 131 
q 132 " q 135 

q 136 " q 139 
q l4o “ q 1^3 
q l41* 


Rigid Body Translations 8s Rotations 


Chordwise Bending 


Displs. 

Slopes 

Axial Rigid Body Translation 


Displs. 

Slopes 


Vertical Bending 


Chordwise Bending 


Displs . 

Slopes 
Torsion 

Axial Rigid Body Translation 


A 
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TABLE E-8 

CONSTRAINT EQUATIONS FOR SYMMETRIC VIBRATION ANALYSIS 

<3.-11 cos 0! - q 5 sin - q. 2k * 0 
q. lx sin 0i + cos 0 X “ <1 12 = 0 


11 

00 

+ 

0 

1 

0 



%l cos 9 2 - 

^25 Sin 

V 

‘ *24 = 

«ia sin e 2 + 

0^5 cos 

0 2 ‘ 

I 

II 

* q 33 + *23 “ 

0 



-=t 

o? 

Jr 

+ 

CM 

6? 

+ <124 = 

0 


i 

t* 

H 

J* 

V/l 

II 

O 




4* 

U) 

1 

II 

3 



-i U5 - 0 




«Wt + «23 - ' 

3 



4* 

ON 

11 

o 





*50 “ *44 = 0 

% = ° 


*88 

cos 

6 3 

“ *67 

sin 

8 3 

“ *47 = 

0 

*88 

sin 

9 3 

+ %1 

cos 

e 3 

" *48 * 

0 

*53 

- %k * 

■ 0 





*81 

cos 

9 3 

+ ^0 

sin 

e 3 

*50 

0 

*81 

sin 

S 3 

“*60 

cos 

9 3 

” *51“ 

0 


*T4 “ *52 " 0 


A 
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TABLE E-8 (Continued) 

%9 cos 0 3 + q 9Q sin 0 3 cos 0^ - q gi sin 0 3 sin 0^ 

+ **93 sin ®4 ^ L 4 sin ®3 + L 3 cos 0 3 ^ 

- q^ cos 0^ [Lj^ sin © 3 + cos 0^ - q 8g = 0 

-q 89 sin 0 3 + q^Q cos 0 g cos 0^ - q^ cos 0 3 sin 0^ 

+ *^93 s * n ®4 ^ L 4 cos ®3 ” L 3 sin 

- ^94 cos e 4 C l 4 cos 0 3 - L 3 sin 83] - q T3 * 0 


q S >2 

cos © 3 - 

q 93 sin 

0 g cos 

64 - 

9 9 4 sin 0 3 

sin 0 ^ 

" q 87 = 0 

q 90 

sin 0 ^ + 

q 91 cos 

©4 + L 

3 **92 

" ^3 L u cos Q k 


- 

^4 L 4 

sin 0 ^ - 

q 59 = 

0 




^2 

sin 0 3 + 

<^3 cos 

0 g cos 

e 4 + 

bk eos 0 3 

sin 0 ^ 

+ %6 * 0 

-q 93 

sin 0 ^ 

+ q^ cos 6 k - 

q 80 = 

0 



_q 96 

•o + L 5 q 100 q 89 

= 0 





q 95 

“ q 90 = 

0 






q 97 

" L 5 q 99 

" V = 

0 






^99 “ q 92 “ 0 
-q 98 + q 93 = 0 
q 100 “ ^4 = 0 

q 101 ‘ *95 " 0 

q 104 “ q 98 = 0 
q 107 ~ q 101 = 0 
q 108 " q 102 = 0 
q 109 " q 103 = 0 
“ q 110 + q 104 = 0 


A 
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TABLE E-8 (Concluded) 


q 112 " q 106 0 

q 113 f -cos ®2 COS 0 5 + sin ®2 Sin + q 123 ^ cos ®2 sin 0 5 

+ sin 0 2 cos 0 5 ] + q n8 L ? cos 0g - q^ = 0 

q 113 ^ sin 0 2 COS ®5 + sin 0 5 cos 0 2^ + q 123 [~ sin ®2 sin ®5 

+ cos 0 2 cos 0 5 J - q llg sin © 2 - q 32 = 0 

- q ll8 + q 40 = ° 

q lM* COS 0 6 + q 132 Sin 0 6 = ° 

- q l4lt cos 0 5 sin 0 6 + q 132 cos 0 5 cos 0 6 + q l 2 l* sin 0 5 " q ll 5 
Q-lkk sin 0 5 sin 6 6 ~ q l32 sin 0 5 cos 6 6 + q 12lt cos e 5 - <*123 

q lU0 cos 0 6 " q 128 sin 0 6 + q 120 = 0 

- q l2+ 0 cos 0 5 sin 0 6 ' q i28 cos 0 5 cos 0 6 + q 136 sin e 5 = 0 
q l4o sin 0 5 sin 0 6 + q l28 sin 0 5 cos 0 6 + q 136 cos 6 5 = 0 
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TABLE E-9 


IDENTIFICATION OF DEGREES OF FREEDOM FOR 
ARTI-SYMMETRIC VIBRATION ANALYSIS 


FUSELAGE 
Beam #1 


"l ' q 5 

« 6 " «10 

«U - q 15 

Beam #2 


Displs. \ 
Slopes 
Torsion 


' 


q l6 “ Si 

Displs . 

j 

S2 “ S7 

Slopes J 

S8 " q 33 

Torsion 

Beam #3 


q 3U ” q Ul 

Displs 

/ 

q U2 " q U9 

Slopes J 

q 50 ~ q 57 

Torsion 

Wing Carry-Through Structure 


q 58 " *69 
WING 

So “ S6 

*77 “ q 83 
q 8U “ So 
V - St 
Ss ” Sou 
S05 


Side Bending 


Side Bending 


Side Bending 


Vertical Bending 



Chordvise Bending 


j 



TABLE E-9 (Concluded) 


PYLON 

Transmission /Engine Assembly 


q 106 _ q lll 
Mast 


CL 


112 


a 123 


PROPROTOR 


q 12U ” <1 129 

EMPENNAGE 


Rigid Body Translations & Rotations 


Rigid Body Translations & Rotations 


Vertical Tail 

q 130 “ q 134 

Displs . 

h " 3 

U) 

VJ1 

1 

h* 

U) 

VO 

Slopes 

q l4o " q lU4 

Torsion 

Horizontal Tail 

q l45 " q l48 

Displs. 

q l49 " q 152 

Slopes 

n 

q 153 " q 156 

Displs. 

q 157 ~ 4 l60 

Slopes 

q l6l " q l64 

Torsion 

q l65 

Axial R: 


Side Bending 


Vertical Bending 


Chordwise Bending 
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TABLE E-10 

CONSTRAINT EQUATIONS FOR ANTI-SYMMETRIC VIBRATION ANALYSIS 
»5 ' «16 = 0 

1 15 «. e i - , 10 sin 6 X - - 0 

1 15 sin 6 1 * l 10 008 6 1 ‘ *22 * 0 

«34 - Is! - 0 

I50 808 9 2 " 11,2 8in ®2 " I33 * 0 

150 »in e s + q h2 cos e 2 - - 0 

I 59 +1 1 « 6 i " 0 

*58 " L 1 *62 " 121 " 0 
«6o"° 

162 + I33 " 0 
161 ° 0 
^63 *27 ° 0 

*64 ‘ I58 “ 0 

«10 5 808 6 3 - 184 8in e 3 - Igl, * 0 

*105 8in *3 + *84 088 *3 - 165 " ° 

I70 - 166 = 0 

I98 808 e 3 + ITT Sln 6 3 * «6T - 0 

%,8 8in 0 3 ‘ I77 808 9 3 - 168 = 0 

I 9 I " 169 = 0 

ll06 888 S 3 + I107 8ln S 3 888 *4 " I108 8in ®3 8in 9 4 
+ <1 110 sin 6^ II^ sin 0 3 + L 3 cos 0 3 ] 

- llll 808 9 4 fc 4 8in 9 3 +1 3 888 0 3 ] - «105 * 0 


<5 
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TABLE E-10 (Continued) 


“ q l06 sin 

1 6 3 

+ q lt>7 

COS 

e 3 

cos 0^ - 

q 108 

cos 9^ 

sin 0^ 


+ q iio 

sin 

£ 

CD 

cos 

e 3 

- sin 

V 




- q lll 

cos 

9 U [L U 

cos 

e 3 

- sin 

6 3 ] ' 490 * 

0 


q 109 cos 

V 

■ q 110 sin e 3 cos 0^ - 

q ill 1 

sin sin 0^ - 

4 X0lt 

q l07 sin 

6 k + q l08 cos 6 h + 

L 3 q 109 

- 4 110 \ COS % 


-q lll 1 

% sin % ~ 

q 76 

= 0 

1 





-«X09 Sin 6 3 

" q 110 

cos 

e 3 

COS 0^ - 

q ill 

cos 0^ 

sin 0^ 

+ 483 

-4X10 3in e U 

+ q lll 

cos 

e 4 

“ V = 

0 





" q 113 + L 5 q H7 " q 106 * 0 
q 112 " q l07 = ° 
q ll4 " L 5 <3 ll6 ” q l08 = 0 
q ll6 ” q l09 = 0 
-q 115 + q 110 = 0 
q 117 “ q lll = 0 
q ll8 “ q ll2 = 0 
q 121 “ q 115 = 0 
q 12U - q ll8 = 0 
q 125 " Hlk = ° 
q 126 * q 120 = 0 
" q l27 + ^21 = 0 
" q 128 + q 122 = 0 
q 129 " q 123 = ° 

q 130 ” q 135 L 7 COS 0 5 + q lUo L 7 sin 0 5 “ q Ul = 0 


<! 
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*135 1-cos 
+ sin Qg 

%35 [sin 
+ cos ©2 

*165 cos 0 i 
-*165 cos ' 

*165 sin e : 
*161 cos 0 ' 
"*l6l cos 
"*137 = 
*161 sin 0 


TABLE E-10 (Concluded) 


©2 cos ©^ + sin ©g sin 0^] + [cos © 2 sin ©^ 

cos 0^3 - q_ ^ = 0 

©2 cos ©^ + cos ©g sin 0^] + q^Q [-sin ©g sin ©^ 
cos e 5 l - q k9 * 0 

5 + *153 sin 0 6 - *132 " 0 

3^ sin 0g + 008 6^ cos 0g + q^*. sin 0^ = 0 

5 siri ©g - q 153 sin © ? cos © 6 + q.^ cos © 5 = 0 
5 - 1 l)l9 sin e 6 = 0 

9 5 sin e 6 “ *11+9 cos 8 5 cos Q 6 + *157 sin 0 5 


5 sin © 6 + q ll+9 sin© 5 cosQg + q.^ cos© 5 - q^g = 0 








































































559 


TABLE E-12 

SYMMETRIC MODES OF MODEL 266 TILT-ROTOR (6, 


-90*) 


Displs,. 


Beam #1 


Beam #2 / 


Fuselage / 


.Axial RBI 


Displs. 


Beam #3 < 


Slopes / 


. Axial RB 


Wing carry -through 


Wing/ 


Vertical 

bending 


Fore and aft 
bending 


Displs./ „ 


Slopes/ 


Displs. / 


Slopes / 


Twists < - 


Axial RB I 


First elastic mode 

Second elastic mode 

Third elastic mode 

/ * i 

• 1.59286 796-01 

8.4300 325E-C 3 

8. 18014376-02 

-1.-49510706-01 

5 .6642 1656-03 

7.11735656-02 

-1. 42544186-01 

3. 65 C 5 6696-0 3 

4.36359506-02 

-l. 35594516-01 

l. 71670226-03 

5.61520936-02 

-1.25504246-01 

-1.0386441E-C3 

4.57923176-02 

2. 79512116-04 

— 7.9046 7776- C 5 

-3.04299866-04 

2.78926566-04 

-7.89763866-05 

- 3. 02 368 746'* 04 

2.78306556-04 

-7.09C4551E-C5 

- 3.00 34 132t-04 

2.77 568196-04 

-7.88348986-05 

• 2.9805 13/6-04 

2.75820536-04 

-7.87246 766— C 5 

‘2.52957186-04 

-1.40438196-02 

0.37224766-02 

8. 74724176-03 

-1.26495486-01 

1.275301 66-02 

4.66080086-02 

-1.15505446-01 

9.65069546-03 

3. 50 136556-02 

-1.060U496-01 

6. 92234076-03 

2.51434486-02 

-5.93 19096E-G2 

4.99226146-03 

1.83502386-02 

-9.40379366-02 

3.46324776-03 

1. 3U704Q9E— 02 

-€.88369196— 02 

1.95C8381E— C 3 

7.5/514646-03 

2.75620536-04 

-7.87246766-05 

-2. 9255 7106—04 

2.72945146-04 

-7.82643556-05 

- 2.6536C556-04 

2.69373826-04 

-7.75489676-05 

’2, It 535766-04 

2.6560 768E-04 

-7.68131096-05 

-2. 4 8C66C5E-04 

2.62176766-04 

-7.606C 747E-05 

•2.59634026-04 

2.57 767886— 04 

-7.5152427E-05 

-2.49606446—04 

6.92818226-03 

0.27458126-02 

l. C65t 5856-03 

- £• 5 C 890056-02 

-6. 1331777E-C 3 

7.83270096-03 

-8.01 41 184E— 02 

-8.86 105 79E-C3 

1.49473636-03 

- 7. 3065378E— 02 

-1 • l 16 7 26 26- C 2 

•9,72451646-03 

-6.2531 948E— 0 2 

-1.480 L 1076—02 

-2.31669166-02 

-5.12927716-02 

-1.8525 7Q26-C2 

-3.50640646-02 

-4. 18 168006-02 

-2.2676 1936—02 

*5.40738326-02 

- 3.009834 IE-02 

— 2. 7765 755 E- 02 

-7.5255171E-C2 

- 1.71072646-02 

-3.4217858E-G2 

1.02259936-01 

2.57787886-04 

-7 .51524276-05 

— 2. 496C644E— 04 

2.53805036-04 

-8.Q535342E-C 5 

-2.£24fc959E -04 

2.51 77358E-04 

-8.40 75 5 7 7E-C 5 

-3.04561616-04 

2.50153766-04 

-8.86920026-05 

-3.33516786-04 

2.49504096—04 

-9.4554 596E— C 5 

-3. 70730266-04 

2.49291646-04 

-1. 02458186-04 

4.17225476-04 

2.45432366-04 

-It 14562466-04 

-4.80051146-04 

, 2-50307706-04 

-1.31858486-04 

-5.51 154C6E— 04 

-1.77398656-03 

8. 25412596-02 

1. 04260406-03 

’ 4.95583y IE— 03 

-0. 62103396-02 

—.1.25765 16E— 02 

-8.86369196-02 

1 .9506 3816— 03 

7.57*14646-03 

-2.57787886-04 

7.51524276-05 

2. 4960644E— 09 

0. 

0 . 

€. 

0 . 

0 . 

0 . 

1.21511276-16 

2.4222 36 76- 1 5 

0.33911196-16 

5.0 3C831 56-0 3 

-8. 07053206-02 

1. 12403286-02 

- 6.33357586-02 

1. 80955406-03 

0.82126696-03 

-2.5/787886-04 

7.51524276-05 

2.496C6446-04 

-2.54908586-04 

6.0051 7566— C 6 

-3.95412186-05 

3.42548236-06 

2. 566 5 8446— C 4 

6. 29C 49 126-0 5 

-8.33757556-02 

1.80559486-03 

8.82126096-03 

-7.20522056-02 

l. 71955586-03 

1.09 657626-02 

‘4.9351 751E-02 

1.42277686-03 

1. 388C3726-02 

-7.60246386-03 

6. 64548896-04 

I. 7815040E-02 

4. 78769336-02 

-7 .06762096-04 

2. 20 Cb 1506-02 

5.50560726-02 

-2.35712456-03 

2.56573186-02 

1.19170526-01 

-3. 12C2 722E-C3 

2.7 10C 7236-02 

2.33896936-04 

-8. 91779656-07 

5. 5 023 2 056— 05 

4.27581456-04 

-4.45502 106- C 6 

6.60653496-05 

6.69778676-04 

-1.01256C7E-Q5 

7. 45 C2 5 156— 05 

5.83086836-04 

-2.03747536-05 

8.22772386-05 

1.30993116-03 

-3.70357596-C5 

5. 3132 850E-05 

1.51741606-03 

-5.49052556— 0 5 

U11498816-C4 

• 1.53500896-03 

-6.25602686-05 

1.23740926-04 

5.01 53231 E-03 

-8.04605196-02 

-1.12C56786-C2 

5.17285986-03 

-6.8345 7316-02 

1-8.20159 34E— 0 3 

5.464C 151 E-03 

-4.48825216-02 

-2.23153736-03 

5.9502158E-03 

-3. 19041176-03 

8.71458506-C3 

6.5 18 6934E-0 3 

4. 98 4683 7 6— C 2 

2.35312096-02 

6.97575176-03 

9.666 7 54 36-02 

3. 14 303476— C2 

. 7.1357928E-03 

1.15026546-01 

4.30 372426-02 

3.42548236-06 

2.56658446-04 

6.29049126-05 

5.76041906-06 

4. 5152 86 7E— 04 

l. 130923OE— 04 

8.31 16032E— 06 

6 .85866716—04 

1.16851366-04 

1.09031376-05 

9. 6 75 6 0 396- C 4 

2.6G59 1396-04 

1.2512905E-05 

1.22488216-02 

3.51068706-04 

1.27031996-05 

1.376CC31E-C3 

4. 19 34 8266— C4 

. 1. 25 136586-05 

1.416 305 56- C 2 

4.43 12986E-C4 

-2.7699315E-04 

7.54549996-05 

2. 45733C46— 04 

-2.7C 707816-04 

1.17427776-04 

- 1.09441816— 04 

-2.62010226-04 

1.77222996-04 

-6.15410866-04 

— 2 .48 79165 E— 04 

2 • 656C £ 7 1 6— C 4 

-1.39430806-03 

-2.31415366-04 

3. 506C99 16“ 0 4 

-2.41660226-03 

J -2.1385121 E-04 

5.08622706-04 

*3. 4073435E— 03 

2. 06275546—04 

5.540517696-04 

-3.79127806-03 

, 3.94 7115416-04 

-6.3323(9506— 0 3 

- 8. 8190|8056— 04 
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TABLE E-12 (CONCLUDED) 


First elastic mode 


Second elastic mode Third elastic mode 


r 




r \ 


Transmission/engine c 


Pylon ( 


Rotor 


Mast < 


i 


Vertical t 
tail \ 


Chordwise 

bending 


Horizontal 

tail 


Vertical 

bending 


[Chordwise ( 
bending 


Displs. i 

Slopes i 
Axial RB^ 
Displs.^ 

Slopes^ 

Displs. ( 

Slopes < 


V. 

{ 


Torsion < Twists < 

Axial RB i 


4.60478316-05 
7.36 14844E-G3 
1.47533386-01 
- £• 2065592E-05 
1.584 3379E-Q3 
1. 25 13658E— 05 
7. 36 1484 4E— 03 
6 • 42 2Q339E— 04 
1.43019776-01 
1.58 6337 9£- 03 

- 6. 206 5 592 E— 05 
1.2513658E-05 

7. 36 14844E— 03 
1.00038 646—03 
1 .456666 1 E— 0 1 
1. 50633796—03 

- 1.0 155637 E— 04 
1.3 03 3 5 02 £—05 
7.36 14844E— 03 
1.0003864E— 03 
1. 456666 IE-01 
1.5863379E-03 

- 1.01556376—04 
1. 3033502E— 05 
-3.7779922E-03 
5 *34 4922 5E- 03 
1.416 16 58 E- 02 
2.3346279E-02 
3.2668229E-02 
2. 503C770E-04 
2.5C69608E— 04 
2. 51 38789E— 04 
2.5 180924E— 04 
2.5201228E— 04 
- 1.7214854E-02 
-9.6 1 7630 7E— 03 

- 7. 36 84701 E-0 3 
-5.4768333E-03 
-3.28CC79GE-03 

6.5064122E-05 

6. 36 34862 E— 05 
6* 2744410E— 05 
6.276441 OE— 0 5 
1 * 94 2459 3 E— 02 
1.94 39569E-02 
1 .9470687E— 02 
1. 95 11 8046— 02 
0. 

7. 62 17444E-07 
1. I 7478G1E— 06 
1. 1 74780 IE— 06 
— 2. 42 £2202 E- 04 
- 2.429 129 8 E- 04 
- 2. 4 3026 3dE— 04 
— 2.4302638E— 04 
-5.2048 168 E-03 


8. 7394562E-C 3 
1. 38252 77E-C1 
-1.424 1383E-C 2 
5 .4827869E-04 
-l. 05904296-04 
1 .416 3Q95E— C 3 
1.3825277E-C 1 
6.9157 565E-02 
1.5913945E-C2 
-1.0590429E-04 
5.482 78 69 E-C 4 
l .416 3095 E—C 3 
1.3825277E-C 1 
1.1068805E-01 
-2. 5267681E-C5 
-1.059C429E-C4 
5 .90234366-04 
1.5550369E-G3 
1.3825277E-C 1 
1. 1066 8C5E-C 1 
-2. 526 768 16- 05 
-1 .05904 29E-C4 
5.9G23436E-C4 
1.55503696-03 
-9.0258C36E-C2 
-9 .52 178296-C2 
— 1.00267236-Q 1 
-1.05654 10E—C 1 
- 1. 11 28 76 7 E-0 1 
-1 .3185846E— C4 
-1.3987968E-C4 
-1.4660358E-C4 

— 1.5013 029E- 04 
-1 . 51 70147E-C4 

1. 3391245E-C2 
-3.02256 i 76-02 
-3. 19529636-02 
-3. 39 35 86 6 E-C 2 
-3.64CC908E-C2 

— 3. 794 3865E— C5 
-5. 80623436-05 
-7.03149 376-05 
-7. 03 14937 E-C 5 
-9. 32464 766- C2 
-9*34 10269E-C2 
-9 .375C 5576-02 
-9. 4 20 C 25 3 E-C 2 

0. 

-8* 3356445E-C6 
-1.2846 46 2E-C5 
-1.26464826-05 
1 .4 16C6 16E-C4 
1.41728786-C4 
1.4167916E-C4 
1.4187 916 E- C 4 
2.49853 79E-C 2 


3.27734736-03 
5*0366 586E-U2 
9.6422665E-02 
-3.76588216-03 
4. 20 82 04 IE-04 
4. 43 12586E- 04 
5. 03665866-02 
2. 1094795E-C2 
-1.C892085E-G1 
4. 20 82 04 IE -04 
-3. 76988216-03 
4. 43 125 86 E- 04 
5. 0366 586E-C2 
3.5625 460E-02 
1.C032911E-02 
4. 2082041E-04 
-4. 7244 149E-C3 
5. £6252 14E-04 
5. 0366 586 E- 02 
3.5625460E-02 
1.00 32911E-02 
4. 20 82 04 IE-04 
-4.7244 149E— C3 
5. 86252 146-04 
-6. 113C881E-G2 

- 8. 1780206E-02 
-1.02761126-01 
-1.25 32G98E-01 

- 1. 485321 4E -01 
-5.5115 406E— 04 
-5.8100100E-04 
-6. 10556 51 1— 04 
-6. 2338419E— C4 
-6. 293CC54E-04 
-8* 3589329E-02 
-1. 19 18452E— 01 

- 1. 29 46CC5E-G1 
-l.4438611t-0l 
-1.6351556E-C1 
-1.58C2401E-C4 
-3. 5949467E-04 
-5.4655575E-C4 

- 5. 4655 5 75 E-0 4 
-5.584C821E-C2 
-5.612C310E-C2 

- 5. 67C 10336-02 

- 5. 7466 3 79E-02 

0. 

- 1.4223562E-C5 
-2.1924182E-05 
-2. 1924 182E— 05 

5.6935220E-04 
5.51 l 7 44 3E— 04 
5.5294 1 596— C4 
5.52547 59 E— 04 
1. 496253SE— 02 


A 
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Figure E-3.- Stiffness matrix. of wing carry-through beam-spring for symmetric 
vibration analysis • 




90Tt noi^ £OT* ZQl h TO\ OOI 
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Figure E-4.- Stiffness matrix of pylon mast "beam-spring for symmetric 
vibration analysis. 
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APPENDIX F 


SOME RESULTS BASED ON THE USE OF 
COMPONENT MODE SYNTHESIS 

Presented herein are some comparative studies based on the 
application of the direct and component mode synthesis vibration 
analysis procedures developed in Chapter 6 to two simple structural 
systems. A comparison of the theoretical solutions with experi- 
mentally measured modes and frequencies of a model of one configura- 
tion is also presented. These studies are not intended to be an 
exhaustive or systematic comparative investigation for the purpose 
of delineating all the ramifications associated with the use of 
component mode synthesis. Rather, they are intended solely to 
provide an indication of the accuracy associated with partial modal 
coupling and to establish the validity of the theoretical analyses. 
Reference is also made to some analytical studies by others 
employing the component mode synthesis computer program developed 
in this dissertation. 

Free-Free Beam 

Consider a uniform beam of constant cross-section having the 
following properties*: 


* These particular properties were employed in a different and 
unrelated study and simply adopted here for convenience. 
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L = total length ** 5^ inches 
W = total weight = 29.25 lh 

2 

El = sectional stiffness = 50,000 lb-in 

I section moment of inertia . 2 

-r - — 1 ■■ — i 1 . 29.16 xn 

A area of cross section 

The distributed mass is taken to be lumped at ten equally spaced 
stations along the lengthwise axis of the beam in the manner shown 
in Fig. F-la. Each station so established has two degrees of 
freedom: vertical translation and rotation. The direct solution 

is based on the 20 degree-of- freedom beam of Fig. F-la. For the 

"V 

corresponding analysis by modal synthesis the complete beam was 
partitioned into the three unequal length beam segments shown in 
Fig. F-lb. In this partitioned form the unassembled beam segments 
have a total of 2k degrees of freedom. Table F-l summarizes the 
physical properties of these lumped-mass systems. 

Results showing a comparison of frequencies obtained by direct 
analysis of the complete beam with those obtained by both full 
modal synthesis and four combinations of partial modal synthesis 
employing only a few of the lower modes from each beam segment 
are given in Table F-2. A comparison of the displacements and 
slopes in the first four elastic modes , as obtained from a direct 
analysis, full modal coupling, and two combinations of partial 
modal coupling, is made in Table F-3. The results of the direct 
analysis constitute the basis from which to assess the accuracy of 
results obtained by partial modal coupling. The use of full modal 
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coupling is seen to yield results which are identical to those ob- 
tained by direct analysis. Good agreement is indicated in the modes 
shown for the case in which only half of the modes from each beam 
segment are employed. It is interesting to note that even when 
only one elastic mode from each beam segment is used the three 
predicted elastic frequencies still compare favorably with those 
given by the direct solution. 

Airplane Beam Assembly 

The availability of the lower modes and frequencies of a 
model consisting of an assembly of "beams" configured in the shape 
of an airplane provided the additional opportunity to compare the 
results of analysis with experimental measurements. This model 
is shown in Fig. F-2 as it appeared during the shake test.* Fig. 

F-3 su mm arizes the geometric properties of the model. 

The partitioning scheme employed in the vibration analysis of 
this model is schematically depicted in Fig. F-1+. Since only the 
symmetric modes of the model were available the analysis was 
restricted to the symmetric case. This permitted the analysis to 
be based on the explicit consideration of the fuselage and only 
one wing and tail. The fuselage, wing, and tail were treated as 
beams, the distributed mass of which was lumped at discrete 
points along the elastic axes of the respective members . Each 

* Thanks are extended to Mr. Robert V. Doggett of the Aeroelasticity 
Branch of NASA-Langley for making the modal and geometric infor- 
mation pertaining to this model available to the author for the 
studies herein. 
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fuselage station had two degrees of freedom: vertical translation 

and rotation. In addition to these two degrees of freedom, each 
wing and tail station also had associated with it a torsional 
degree of freedom. Each member was also allocated a rigid body 
degree of freedom directed along its axis. The rotary inertia 
associated with each lumped mass was taken to be zero. The model 
properties, as discretized for the analysis, are given in Table F-4 . 
68 degrees of freedom are associated with the uncoupled system, 26 
of which correspond to "massless" coordinates. 

The results of some comparative studies pertaining to the 
model are summarized in Tables F-5 and F-6 and Fig. F-5. The 
results shown in the first two columns of Tables F-5 and F-6 
indicate that the results of the direct analysis do not agree 
exactly with those obtained by modal synthesis using all of the 
calculated component modes. This discrepancy is a consequence 
of the fact that a modal expansion using all the calculated com- 
ponent modes is really incomplete since a set of modes equal in 
number to the number of massless degrees of freedom has been 
"lost" in solving for the subsystem modes and hence are 
"unavailable" for use in the synthesizing procedure. This incom- 
plete expansion is equivalent to placing constraints on the beam 
segments , which will tend to give frequencies which are slightly 
higher than those obtained from a direct analysis. This is sub- 
stantiated in Table F-5. A complete set of linearly independent 
shapes was established by calculating the component "modes" 
using an arbitrary value of 1.0 for all the rotary inertias. 
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Employing these shapes in a full modal synthesis then gave results 
which agreed exactly with those of the direct analysis. 

Modal synthesis results employing only a few of the lowest 
modes from each subsystem are compared with solutions by the direct 
method and with experiment in Tables F-5 and F-6 and Fig. F-5. The 
results shown in Tables 5 and 6 for partial modal synthesis are for 
a single combination of the lowest component modes. In addition 
to the rigid body modes, these include: 6 fuselage bending modes, 

5 wing modes (3 bending and 2 torsion), and 2 tail modes (l bending 
and 1 torsion) . The wing and tail modes corresponding to clamped- 
free*, pinned- free, and free- free beam end conditions, respectively, 
were used in conjunction with free-free fuselage modes to provide 
an indication of the type of component modes which lead to results 
most nearly in agreement with those obtained from a direct analysis. 
As might have been anticipated use of clamped-free modes for the 
wing and tail gave the best results. A comparison of the calcu- 
lated mode shapes of the first four elastic modes is made in 
Table F-6.** Again, the direct solution results should be taken as 
a basis for the assessment of the accuracy of the results of partial 
modal synthesis. An assessment of the accuracy of the direct 
analysis procedure can be made by comparing the results obtained by 

* A sample input for this case is included as part of the listing 
of the modal synthesis computer program in Appendix H. 

** The zero rows correspond to the rigid body degree of freedom 
along the axis of each beam. 
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this method with those obtained experimentally. The frequency 
comparison, given in Table F-5, is considered to be quite good in 
view of the rather coarse spacing between stations, particularly on 
the fuselage and wing. The modes calculated by the direct method 
are compared with those obtained experimentally in Fig. F-5. 

Excellent agreement is shown through the highest mode for which 
data was available (the 7 elastic mode). 

Additional Applications 

The computer program for natural mode vibration analysis by 
component mode synthesis which has been developed in this disserta- 
tion has additionally been employed in two analytical studies by 
others.* The first study, directed at assessing the dependency 
of the rate of convergence on the type of component deflection 
shapes employed in the synthesizing procedure, concerned itself 
with comparing the free-free inplane frequencies and modes of 
a rectangular frame calculated on the basis of using selected 
free-free or clamped-free component modes by themselves and in 
conjunction with component static deflection shapes. The second 
application was to a dynamic model of an early space shuttle concept. 
This model consisted of a pair of tube-like beams arranged in a 
parallel "piggy-bank" fashion and joined together by two spring 
assemblies . The frequencies of the complete structure were 
calculated using 8 booster modes and 7 orbiter modes , each group 

* Fralich, R. W. , C. E. Green, and M. H. Rheinfurth: "Dynamic 

Analysis for Shuttle Design Verification", Paper no. 9, NASA 
Space Shuttle Technology Conference, April 12-14, 1972 (NASA 
TMX-2570, July 1972). 
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consisting of a mixture of free- free elastic modes, rigid-body modes, 
and static deflection shapes. The calculated frequencies are com- 
pared with those obtained experimentally in the reference cited in 
the footnote, to which the reader is referred for additional 
details . 
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TABLE F-4 


DISCRETIZATION EMPLOYED FOR AIRPLANE BEAM ASSEMBLY 



Local 


Torsional 

EI 



Station 

Coordinate 

Mass 

Inertia 

vertical 

GJ 


Position 









(inches) 




(lb-in 2 ) 

Fuselage 









1 

0.0 

.0002083 

N/A 

47790 . 

N/A 

2 

4.0 

.0004166 







3 

8.0 

.0004166 







4 

12.0 

.0004166 







5 

l6.0 

.0003750 







6* 

19.2 

.0030066 







7 

24.0 

.0004583 







8 

28.0 

.0004166 







9 

32.0 

.0004166 







10 

36.0 

.0004166 







11 

40.0 

.0003750 




1 



12 

43.2 

.0004166 



47790 . 



13 

48.0 

.0002500 



— 





Wing 









1 

0.0 

.0003704 

.0001235 

9440. 

15720. 

2 

4.0 

.0007409 

.0002470 





3 

8.0 








4 

5 

12.0 

16.0 

1 

1 


1 




6 

20.0 

.0007409 

.0002470 

9440. 

15720. 

7 

24.0 

.0003704 

.0001235 





7 





Horizontal 









Tail 









1 

0.0 

.0001852 

.00006177 

9440. 

15720. 

2 

2.0 

.0003704 

.00012354 





3 

4.0 

1 


X 


( 



k 

6.0 

t 


r 



r 

5 

8.0 

.0003704 

.00012354 

9440. 

15720. 

6 

10.0 

.0001852 

.00006177 








*Mass of shaker stem and coil included 


Total Masses: Fuselage = .005 » Wing = .00444, Tail = ,00185 
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COMPARISON 


Fuselage < 


Wing ^ 


Tail < 


TABLE F-6 

OF CALCULATED SYMMETRIC MODE SHAPES FOR AIRPLANE BEAM MODEL 
First elastic mode 


Displs, / 


Slopes < -■ 


Displs 


Slopes < 


Displs 


Slopes < 


Direct solution 

Full modal synthesis 


Partial modal synthesis 


f"‘ \f~ 

free-free 

free -free 

clamped-free 

plnned-free 

free-free 

RI 0 

RI = 0 

"Dummy" RI 

RI - 0 

RI ~ 0 

RI = 0 

8. I994467E+00 

• 0.4C47253F+OO 

8. 199446 3E*00 

■8. 2301740E +00 

-8 • 8 32 97 9 8F +00 

8.95245826+00 

7 • 2145753E+00 

-7.*3737*CF*0O 

7.21457506+00 

-7.22218766+00 

-7.6117P44F+9P 

7.6944781E+30 

6. 2360589E+00 

-t. 3979695F+00 

6 .23605866+00 

-6, 24530956+00 

-6 .42878746 *0C 

6.47604996*00 

5.27726326*00 

-5. 2630893F+00 

5.27 72629E+0G 

-5. 28463466+00 

-5.267?* T96+00 

5, 27996 376*00 

4 • 35 90 3 1 9E *00 

-4.1003757F+CO 

4.35903166*00 

-4. 335G461E *00 

”4 .122 356 ^F+or> 

4.1C16349E+00 

3. 6716 8206*00 

■3. 3P67ir7F+00 

3.67 168176*00 

-3. 6566 88 8* *00 

■8.3083695E+00 

3.2644699E+00 

2. 99912996 +00 

■2. 61 08 347 F *00 

2.99512966*00 

*2. 98736P3E+00 

*•2.5 167216**00 

2.43157376+00 

2.85976516*00 

•2.46457P6F+00 

2 . 859764 7 E+00 

-2.83190216 *00 

•2,35196366*00 

2.28436896*00 

3. 0203286E+00 

•?.475aniF*oo 

3. 02 C 32 826+00 

-3.00272606*00 

-2.589 37 78F+00 

2.52180376*00 

3. 4C 68 48 86 +00 

-3. 1*71 1406*00 

3. 40684836*00 

-3. 40324806+00 

-3. 11123026+00 

3 • 0 72 68 99E +00 

3.94901886*00 

-3.82492Z5F+00 

3. 9 490 18 3E +00 

•3.54919* 5* *0C 

•3. 81394 646*00 

3.80029356+00 

4.4*014236+00 

-4.44C11C8F+O0 

4.450141 8F+0 0 

-4.45009656*00 

-4.45*93436*00 

4.4# 474446+00 

5.23067336*00 

-5. 39766 2CF+00 

5.2306727E+00 

-5.25090626+90 

-5. 4002669* *00 

5.52471836*00 

-2,46422606-01 

2. 89#* 152 *-01 

-2.464Z259E-01 

2.5375 98 36 -Cl 

3.074^7456-01 

■3. 16719686-01 

-2.45808376-01 

2. 88728P5F— 0 1 

-2.4580836E— 01 

2. 484701 7F -01 

3.00998236-01 

■3.1C04570E-01 

-2.42884785-01 

?. 85*05216-01 

-2.42884776-01 

2. 410078 3S -Cl 

2.91672786-01 

-3.00403766-01 

-2.35636636-01 

2.74448606-01 

-2. 35636636-01 

2. 4066 322E— 0 1 

2.906 4761*— 01 

-2,99225086-01 

-2.22338976-01 

2. *4 392C5*— Cl 

■2.22338976-01 

2. 29036836 -Cl 

2.75560446-01 

-2.83507226-01 

-2.0639969E-01 

2.24618706—01 

’2.C639569E— 01 

1. 88645906-01 

2.255 1748F-01 

-2.31833526-01 

— 7. 8 7 1351 5F— 02 

5. 24P?2*PF-02 

• 7 .8.7 135236-02 

8.5465 57 3E-C2 

9.0520202*— 02 

-1.0C89500E-01 

5, 80474726-03 

-1. 265612 9F-0 2 

5.80473746-03 

-5.3797649F-C3 

-1.3287P05F-02 

1.4355918E-02 

T.1393550E-02 

-8.90904866-02 

7.13935426-02 

-7. 547074 36-0 2 

-9. 98643626-02 

1.03643946-01 

l, 1893386E-01 

-1.445P352F-01 

1.18933856-01 

-1.21244A9E-C1 

-1.467055*6-01 

1.62309416-01 

1 .49388626-01 

•1.B4C0P48F-01 

1.45388616-01 

-1.49394# 46-01 

-1.9174734F-01 

1 .9P485876-01 

1.62159166-01 

■1. 5740674E— 0 1 

1.62159156-01 

•1.62345156— Cl 

-2 «9 T 8 3702F-0 1 

2*1 504825 E-01 


3.67169206+00 
2. 357521 CE ♦00 
-4.96873S6E-01 
-4. 48302336 +CQ 
-9.203048*E+00 
■1. 43039726*01 
-1.9536017E+01 
-1.93200066-01 
-5.3773995E-CI 
-8.7225684E-01 
■I .10424096 *00 
-1.24G41P76+0C 
-1.29922836*00 
-l. 312402T**CO 
1.70747256-01 
1 .78830226—01 
1.78989046-01 
1.79073706—01 
1.79134106-01 
l. ■'9170476-01 
1. 791825 6E-01 
0. 

A. 440l*23E*00 
4.6315375E*00 

4. 8417*70* 4-00 

5. C606066E+OC 
5. 3035139F*0C 
5. 54080556*00 
3.1C79754E-02 
9.90444376-02 
l. 10164416—01 
1. 140366 26-01 
1.1833193E-0L 
•1 • 18798996-01 
■ 1. 4043386E— 01 
-1.4P45520E-P1 
•1.40471806—01 
-1.40483666-01 
— 1. 4049076E— 01 
-1.40493 15E— 01 


0. 

•3.3P671C7F+0O 
■2.532*9856+00 
1.373*5226-01 
4. 14860386*00 
9. 03120676*00 
1.43700356 *0 1 
1.88662236+01 
1.123055 C F-01 
4. 1*86465E-01 
P. 65 PfilP5F-01 
1. 1274 13C6+00 
1. 25 38554F+00 
1. 3# 3??9 if +00 
1.3754*rpe*00 
■1.94r??3#F-Cl 
•l.9< 6966 If —01 
-1.54636766-01 
•1. 9494*7 8F— 3 1 
-1.93023676-01 
-1.55C704 16-01 
- 1. 95 C0595F -01 
C. 

-4.+4P1 1C86+0C 
•4.448* 913F+00 
•4. P "6756 36*00 
-3. 14tUS?F*7fl 
•5.416} 1746+00 
-5.4090*906*00 
-5.37C36C6E-02 
-1.107*3466-01 
•1.26730866-01 
-1.33164116-01 
1.36134376-01 
■1. 3663P84E-31 
1.709*5186-01 
1. 7C 6 85526—0 1 
1.710138’6-Cl 
1.7103C81F-01 
1.710*1166 -Cl 
1. 710445 7F—0 1 
C. 


3.67 168176+00 
2.35752076*00 
-4.96873916-01 
•4.48382376+00 
•9.20304896*00 

• 1.43035736*01 
-1.95360186*01 
■1. 03200 06E-O1 
r5.3773995E-01 
-6.72256856-01 
■1. 10424096*00 

1.24C4 1076+00 
-1. 299228 3E+00 
1. 31240266+00 
1. 78747256-01 
1, 7888023E-UI 
1.78589056-01 
1.79C73706-01 
1.79134186-01 
1.79170476-01 
1. 79 1625 76-01 
0. 

4. 45014186+00 
4.62 153696+00 
4.0417585E+OO 
5.06869616+00 
5. 30351 846+OC 
5.54080506*00 
8. I C 797496-02 
9. 90444836-02 
1.10 16 4406— 01 
1.16036626-01 
1.18331936-01 
1.18 75899E— 01 
-1.40433856-01 

• 1.40455 19E—0 1 
■ l. 40471806-01 

• 1.4048366E-01 
•1.40490776-01 
■I.4C 453146-01 


-3. 5566 3886*00 
-2.35740156*00 
4. 75626726— Cl 
4.46347896*00 
9. 19384456*00 
1.430964 36+C1 
1. 55561096 *C1 
9.4325 1486-C2 
•.33495626-Cl 
6. 7092 82 35 -Cl 
1.10595156+00 
1.24392916*00 
1.30295576*00 
1.31594696+90 
-U#737549E-C1 
-1. 634937 16-C 1 
-1. # 3598286-C 1 
-l. 63679736-Cl 
-1.63734B4E-C1 
-1. (3769476-Cl 
-1.63775126-01 
0. 

-4.45009#5S*0 J 
-4. 6 3064705 +C0 
-4.84OC0136+CO. 
-5.06841936*00 
-5. 30658606+00 
-5.5*814155*00 
-8.11727466-02 
-9.8375776G-C2 
-1.1O28539E-01 
■1. 17287225-Cl 
-1. 20322676-C1 
-1.21005306-01 
1.405 94926 -Cl 
1,40614056 -Cl 
1.40531316-C1 
1.406450 16-C 1 
1.4065 3806-C l 
1.4CS* 4B36-CI 


*3. 308359*6*00 
-2.5 16*1586*00 
-5.4563*526-0? 
4.O820545F+C0' 

9.0097423c* CO 

1.43425596*01 
1. 99981 3-*6+01 
1 • 12 T *9P8F-01 
3.583721 2F-01 
8. 5410696P-OI 
1 1641278F+00 

1.20761 12F+PO 
l .38081 3 4F +00 
1.430431 lF*or 
■1.953O390F-01 
-1.95369249-01 

■ 1 .9852383F-0I 
•1.9447P41F-01 
•1.9576TT1F-01 

■ I .9579146*— 01 
•1. 95791 48F-01 
0. 

-4.45593636*00 
•4.66670*46+00 
•*.8 935400F.<'0 
-5.1442730F+00 
-5.418 3264F+0 0 
•*. 49609 44F*oo 
•1.0391PT3F-01 
-1 .0831# 40*— 01 
-1.192212*6-01 
•1.311 49 8 *F — 0 1 

-1.388*8916-01 
•1.4 11465 T F— 01 
1.799920 IE— 01 
1 .7 99 995 3 *-01 
1.60019216-01 
l.B0''43*3E-01 
1.8006321F-01 
1.80070736-01 
Oi 


3.26446986+00 
2.48738236+00 
1.16856556-01 
-4,03175 37E*00 
-8.9913169E+00 
-1.4232634E+01 
-2* CC4 00626*01 
■1.1 59170 IE-01 
-3.5C98165E-01 
-8.4086635E-01 
•I. 1 7490 50 E*0 3 
-1. 29064396*00 
•1. 38817986*00 
•1.4491953E+00 
2 • 0C77358E-01 
?. 0CP42 716-01 
2. 01006286-01 
2.01169876-01 
2.01264346-01 
2.01289686-01 
2.01289706-01 
0. 

4.4*474446*00 
4. 6 8160616+00 
4.90931176*00 
5. 1 575511E+00 
5.42632426*00 
5.70594136*00 
1.07544356-01 
1, 1C20378E-01 
1 ,18491446-01 
1,24747936-01 
1. 38035606-01 
1. 40695026-01 
•1.86271756-01 
-1 ,86279766-01 
•1 , 863007 2E-01 
-1.86326636-01 
-1.86347596-01 
-1.8635560E-01 
0. 
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TABLE F-6 (Continued) 


COMPARISON OF CALCULATED SYMMETRIC MODE SHAPES FOR AIRPLANE BEAM MODEL 

Second elastic mode 


Direct solution 


Full modal synthesis 


Partial modal synthesis 


free-free 
R1 - 0 


free -free 
"Dummy" RI 


clamped-free 
RI *0 


pinned-free 
RI * 0 


free-free 
RI a 0 


Fuselage / 


Wing 


Tail { 


V 


Displs . < 


Slopes 


l 


Displs . 



Displs . 


Slopes 


Twist 


3. 14328936*01 
2.2B80832E+01 
1.4527396E+C i 
6.7509T016+00 
f , 86664636-02 
-4.C6317026+C0 
-7. 65 I54736*0 n 
-6.87914516*00 
-8. 15781396*00 
-5.95568716*00 
-2.62135536+00 
5.89053336-01 
5.8626^386*00 
•2.1446753E+CC 
-2.12469526*00 
-2 .C 35 66 696 *00 
-1.83003386*00 
-l.48074506*n0 
-1.09 16450 5 *00 
-4.923IT966-01 
-2.894 14T0E-C2 
3.7e38392E-0l 
7.07999366-01 
9.41962386-01 
1.0528923E+C0 
1.0591 1 346*00 
0. 

-4.06317026*00 
-5.72309076*00 
-5.8681 1696+00 
-4.191 36696+00 
-8.55362776-01 
3.45821436*00 
8. 24185736*00 
-3.43823646-01 
-2.49419946-01 
1.89776326-01 
6. 39099556-0 l 
9. 83404096-01 
1.16446996*00 
1.21163126*00 
9.45391606-01 
4.51439136-01 
9.56396596-01 
9.60258296-01 
9.63019826-01 
9, 6 46 T 8006—0 1 
9.65230936-01 
0. 

5.89O5333P-01 
1.83170646*00 
3.37314396*00 
5.10139796*00 
6.42473C86+C0 
6.7796872F+00 
5.2646725E-01 
7.05895856-9! 
8. 26105146-01 
8.9452C91E-01 
9.23266626-01 
9.29546486-01 
-9.11839876-01 
-9.1 300963F-01 
-9.13926006-01 
-9.14582106-01 
-9. 14975366-01 
— 9 . 15 106466— 0 l 

e. 


3.13770256*01 
2.2837459E+01 
1.44981976*01 
6. 74C €0446*00 
5.68092706-02 
-4.01231536+CO 
•7 .74370126*00 
■6.727C3 786*00 
-7.5677856F*00 
-5*1 3636656*00 
•2.38343CPF+00 
£ . 34726036— Cl 
5.91680126*00 
■2*l*15U'if*CC 
•2.12143136*00 
-2.03156426*00 
•1.82474246*01 
-1.47C5C666+CO 
■l.ie5C8756*OC 
-4.79378*26-01 
•1. 39697476-02 
2.37194206-01 
7.L30nilf-Cl 
5»4£ 947426-01 
1.9422*tl6*0C 
1.0 57C765E *0t 
C. 

•4.H2nS?6*CC 

-5. 85f 22016*00 
-6.C7864696+O0 
-4 . 3£ 1 291) E+CC 
-5,75909356-01 
3.9 3086426 *CC 
£.84261406*00 
•r.42544e86-ri 
•2.35 335076-01 
1.^)127486-01 
t .61590 07F-01 

1. )2?13*46*CC 
1.219612*F*00 
1.269712! E + CO 
5.39712616-01 
9.4576)566-01 
5,*C7i572 F-Cl 
5.’54<4443F-C1 
5.574 iei36-01 
6.59C8364 €-01 
5 »T‘5 6 39CZE-C1 
C. 

f. 34726036-01 
1.942F304F*Cr 

2. 3 337 3 21F*C0 
4 .il< 20525+CC 
6.383C a l4F*CO 
€.?76 35216*0? 
5.2114 l 1*E-Cl 
6.158141PE-PI 
7.* 5371256-01 

0.l3f«3OCE-Ol 
6. 44464666-01 
£.49^53686-01 

-5. 026 40406- Cl 
■5 . 330 15 3C 6-Gl 
-5. *'47 365P6-C1 
•5.35 3 e 157F-Cl 
*5.35765 2P6-01 
•5.05516306-01 
C. 


3.14326946*01 
2.28608326*01 
1.45273966*01 
6. 7 5C5 7 026+00 
7.8666524E-C2 
-4.0631 7016*00 
-7.85 15473E+CC 
-8.tt?9l451E+CQ 
-8.1578 139E+CC 
— 5.9556671E+CG 
-2.62135536+CC 
5. 89053276-01 
5.6626437E+C0 
-2. 1446 75 3E+CC 
-2.1246952F+CC 
-2* 03 56 6 596 +CC 
•1.83 00 3386 +CC 
-1.4807450E+C0 
-1.09 16450E + C0 
-4.9231 7966-01 
-2. 89414726-02 
3.7836391E-C1 
7. C 795 9 36E-C 1 
9.4196 258E-C l 

1.U528923E+00 
1.0591 1336+00 
0. 

-4.063170,16+00 
-5. 72305C76+CC 
-5. 86 8 1 369 E *00 
-4. 19136696+00 
-8 .95 36 28 IE-0 1 
3.4502 142E*C0 
8.24 16 572E + CG 
-5.4562364fc-0l 
•2.4441994E-01 
1.89770316-01 
6. 3V055556-C 1 
9.834G4C5E-C 1 
1. 1644655E+CC 
1.21 16311E+0C 
9.4535l61fc-0 1 
9. 51439 14E-C 1 
V • 56396596-C 1 
9.60256 J0E-C1 
9 . 6>3 J i 9 626- C 1 
9.64670006-01 
9-652209 4E-01 
0. 

5.0905 327E-CI 
1.8317C63E+C0 
3.37314386*00 
5.10159786*00 
6. 92478076*00 
8.77568706*00 
5.2644 728E-C 1 
7.C5t55646-C 1 
d.26ti)f 13E-C 1 
8.9452090E— 0 1 
9.2326660E-C1 
9.29546446-01 
-9. 1 1 83C076-C 1 
-9. 13CC962E-C 1 
-9.1392679E-C1 
-9. 1456209E-C 1 
-9.14975356-01 
•9. 15106456—01 
0. 


-3.14458786*01 
-2.28860956*01 
-1.4529235F+01 
-6.74946536+00 
-7.9409674E-02 
4.06622396+00 
7,84514316+00 
8. 06492836+00 
8.1454662E+O0 
5.9226794 6+0O 
2.5626310E+00 
-6. 23456 2 6 E- 01 
■5.73333706+00 
2.1461146E+00 
2.126 1084E+00 
2.O369343E+0O 
1.83012656*00 
1.47992 916+00 
i.C 96 71 846*00 
4.88134536-01 
2.92673296-02 
-3.79961496-01 
-7.16107996-01 
-9.42732586-01 
-1.03626086*00 
-1.07870736+00 
0. 

4.06622 39E+00 
5.71745536*00 
5.8824? 196+CO 
4.21802066*00 
8.96809146-01 
-3.475 16 76E+00 
-8.Z544J 96E+00 
5.40360376-01 
2.49251506-Ot 
-1.83217686-01 
-6.40959066-01 
-9 .90636 22E-01 
•1.16630726*00 
-1.20909996*00 
-9.49701 346-01 
-9.5«645 596-01 
-9.6083192E-01 
-9.64877176-01 
-9.67619 38E-01 
—9.69146 23E-01 
-9.69628 22 E— Cl 
0. 

-6.23456296-01 
*1.04472066+00 
-3.3631710E+00 
-5.07376 20E+00 
>6.88478436*00 
-8.7 30435 IE* 00 
-5.10131496-01 
— 6.9395T25E-01 
-8.15611666-01 
-8.87158 256-01 
-3.1817 5 22E-CI 
-9. 25150906-01 
8.97427536-01 
8.98457 17E-01 
8*5 9386 026-ni 
9.C012316E-01. 
9.0P19643E— 01 
9.0075911E-C1 
0. 


3.1439939E+01 
2.28760906*01 
1*45 130056+01 
f .T385P376+00 
9. 278 1066F-02 
-4.01597266+30 
•7 « 7145749E+00 
-8. 6 5 766046 *00 
-7.8A29343E+0O 
»5 . 47223546+00 
-2.1557345E+0O 
1.06^19426*00 
5 . ?2302CO c +OO 
-2.14765976*00 
-2.12756766*00 
-2.03721026+00 
•I.92679U6+00 

•1.4tO8o 3& E.r,0 

*1.00274828+00 

-4,69479796-01 
-9.94196396-03 
3.90049046-01 
T. 3173109^-01 
°.*933075E-0t 
1.04652106*00 
1 .0980351**00 
0*. 

-4.01597266*00 
•5 . 00419 15 c *0O 
•6. 1095324F + OO 
-4.41690606*00 
-9.39439676-01 
3.6519167P+30 

0. T498616E+OO 

-f .41375296-01 
-3.1840423«-0l 
l .84830156-01 
6.79752256-01 
1.03341046*00 
1 .23658326+00 
1 .30090276*00 
9.37606786-OV 
9.39904626-01 
9.40 153396-9 1 
9.50400696-01 
9.0 3443706-01 
°. 54243876-01 
° .542474-16-0 1 
0. 

1. C67I942E+00 

2.13740 ? 4E+fvo 

3 . 3 3 75473 f .00 

4.73091866*00 
6 .28801336+00 
7 . 92352406*00 
5.234U59F-01 
5. « 8909075-01 

6.46931705-01 

7 .432 1808 c -01 
8.O344483E-01 
9 . 23910*66-0 1 
*°. 0657290E-01 
*9, 06037925-01 
-9 .*' T 43I T 6E-0l 
-9.08359396-01 
-9.0905323 C -Ol 
»*>. 09 34925 E-01 


-3.1434168E+01 
-2. 28682366*01 
■1.45035686*01 
■6, 72963526*00 
-8.9314P40E-C2 
4.CI IC0316+QQ 
7.69160896*00 
9.61804216*00 
7.80727906+00 
5. 50259806+00 
2.C7471 716 +C0 
*1.155273 8E+0C 
•4.3203290E+00 
2. 14018376*00 
2 * 128C812E +00 

2.C374413E+00 
1.82610466*00 
1.4688304E+C0 
1.C79567CE+C0 
4.65369846-01 
5.81177956-03 
•4.C186437E-01 
-7. 349J733E-01 
■9.578C775E-01 
•1.C487873E+00 
•1.C896861E+C0 
Ov 

4.01 ICC 31E + 00 
5.89291116*00 
4* 26361636+CO 
+.46263176+00 
9. 38445646 -Cl 
>3.60B«548E+OO 
•0.094<5lC£*On 
5.39784666-01 
3.31661 6PF -Cl 
*1 .77771526-01 
-4. C 34P51 56-01 
*l»C4 21t 296 +00 
•l.25i?P33E +00 
•1.2263294E+CO 
*9.3492 V82E-01 
-9.77152446-Ct 
-9.424C779E-CI 
-9.476667J E-01 
-9 » 507C8566-0 1 
-9.5152979E-CI 
-9 • 5 1 5 3 3 3 5E -C 1 
7. 

-1.15527386*00 
-2.21781886+00 
■3.26449656*00 
•4. 67C4654E+C0 
-6.13578536+00 
•7.68521816*00 
5.24394766-01 
•5.4502769E-01 
•6.C932772E-01 
-6.9666112E-01 
■7.60960966-01 
-7.81594096-01 
9.C827580E-CI 
9.C654242E-01 
9.C924C45E-01 
9.I010326F-O1 
9.108C129E-01 
9.11067916-01 
0. 


J 
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COMPARISON 


Fuselage \ 


Wing \ 


Tall ( 


TABLE F-6 (Continued) 


OF CALCULATED SYMMETRIC MODE SHAPES FOR AIRPLANE BEAM MODEL 


Third elastic mode 


Direct solution 

\r 


Full modal synthesis 


■v 


Partial modal synthesis 


free-free 
RI = 0 


free-free 
"Dummy” RI 


clamped-free 
RI = 0 


pinned-free 
RI 0 


free-free 
RI = 0 


Displs , C 


Slopes C 


Displs, 


Displs 


Slopes 


{ 

{ 


Twist 


-Z. 16328536+00 
-7.59342295-01 
5.88474406-91 
1.8050778E+0C 
2. 9*17021 5*00 
3. 55 874405+00 
5.7466620E+O0 

8. 190*2925+00 
9.93102505+00 
1.01 749706+31 
P.-57853825+0C 

6. "3 <55 9705 ♦90 
1. 5095797E+C0 
3* 53079466-71 
3.46798*45-01 
3.23546415-01 
2.82330845-01 
2. 37050665-01 
2.1*953405-01 
6.07611665-01 
5.64595295-71 
2. 72079*25-01 

-1.44507675-71 
-6.28413845-01 
•9. *7970235-01 
•9.40395 305-71 
0. 

3.55874405+00 

■4.31712976-01 

-8.04030046+00 

• t. 2098924E + 0 1 
-B.45407C 95+00 

2.11417675+00 
1.63491435+71 
1.07477035-01 
•1.7744122C+C0 
■1.70911195+00 
-1.39*48325-01 
1.8? 13T775+00 
3.27386395+CC 
3.70 l 18C 95 +00 
-1.86155155-01 
-1. 91 9CT7 15-01 
-1.96655975-01 
-2. PC 3750 85- 7 l 
-2.03045595-71 
-2.046S349E-01 
-2.05190405-01 
0. 

6.03559705+00 
4. 23 896955+00 

9. 0657O37E-9 1 
-3. 29036435+00 
■9. 13°27545+C0 

• 1 u 31960965+01 
-4.73986125-01 
■l-u 2947*736+00 
•1. 92052496+00 

— 2. 31 71439E+0C 
-2.44 966805+00 
•2.54278146+OC 
8.20465725-01 
8.25869436-71 
9.29672305-71 
8.32 36935 £-01 
8.34037015-71 
9. 3* 5 8 3145—01 

7. 


■4. 7l5t 173E-CI 
1 * 111311 25-01 
6. 81528975-01 
I.23779636+CO 
1. 8I7C478S+00 
2. 3*5296 25+00 
5.C3676+4E+0C 
8. 30394«8E+OO 

1. C 486578c +C1 

1. 168+2705+Cl 
9. 92525925+CO 
6. 7 P5 778 36+00 
1. 0757 3 906 + 00 
1.459’4226-ri 
1.451897 1P-C1 
1. 36129946-01 
1.47256766-Cl 
1. 2*46 3095 -Cl 
2.95589225-C1 
7. 7597 12 55 -Cl 
8.10226445-01 
4.4«4M705-?i 
•1. 1691 8846 -C 1 
•7.73721735-01 
•1. 11977015+00 
'1. 2246 2732 + 00 
0. 

2.365290Z5+CO 
1. 210C 6305+00 
-6. 29 275255+00 
-1. 16849776+51 
-9.1 516 3101 +00 
1. 232731 75+CO 
1.577’2766+Cl 
1.47794925-01 
-1. 1*201405+00 
-1. 593272*5+00 
-4.61 175966-Cl 
1.65381745+CO 
3. 2 r °l 6826+00 
3.873H00!: +0C 
-2. 31987596— Cl 
•2. f 5070666-C 1 
-2. 74P44915-C 1 
-2. 006* 7805-01 
-2.850*8105-01 
•2. 87946 l 8E-0 1 
-2. 88 T 742')€-C1 
0. 

6.73577036+00 
5.21139175+70 
1. 60630775+00 
-3.44295155+00 
•9. 3C 5^261£+?0 
*1. 54664275+01 
• r . 5«f90422£-tl 
-1.24180755+70 
•2. 24208* 8 C +CC 
-2. 77 11 93 IE +00 
-3.041C1846+07 
■3. 1003914= +00 
9.697*0655-71 
9, 76067939-0 1 
9.«2*17C*=-31 
a . 6638 7C46-C1 
8. 06771675-01 
5. 8956 6565-Cl 
0. 


2.L632655E+OC 
1 • 593*2225-01 
-5.88474505-01 
1.8050778E+00 
-2.64170215+00 
•3.56BI44OE+Q0 
-5.74666205+00 
■8. 19C4293E+00 

■ 9 .93 102 Slfc + 00 

■ l. 0 1 749 70E +ul 
■6.5755 3835 ♦ 00 
•6.0355572E+0U 
■1.50557986+00 
■3.53075455-01 
■3.46748635-01 
■3.23546406-01 
-2.92 33 C 866- Cl 
-2. 37C5C86E-0 1 
•2.1495361E-01 
-6.07811675-01 
•5.64545306-01 
-2.72079436-01 

1.6451,7675-01 
4.28413846-01 
5. 47470246-01 
9. 40 393 306- Cl 
0. 

-3.55074406+00 
4.31712996-01 
6. C403C09E+00 
1.20464246+01 
6.5346 7C8E+00 
*2. 110176 76 +00 
•1.63491436 +01 
■I.C747703E-01 
1.77441226+00 
1.70511 196+00 

1. 3954B316— Cl 
■1.88 137776+00 
•3.27366296+00 
■3. 7C 118086+00 

1.66155156-01 
1.514C 771E-C 1 
1.4665597E— 01 

2. CC37 5C9E-01 
2.03043586-01 
2 . C4t 5 3496 -<J l 
2.05 15040E-01 
0. 

-6. C3 559 726 +00 
•4.23846566+00 
-9.66570*16-01 
3. 29C36436+00 
6.13527556+00 
1.3196056E+C1 
4. 73466126-01 
1.29475736+00 
1.920*2495+00 
2.31 714406+00 
2.49966815+00 
2.54278146+00 
-6. 20565736-Cl 
-8. 256 59436-01 
-6.29672306-01 
-0.32395356-01 
■6. 34 Q3 7016-01 
-8.34363146-01 
0. 


2.41 7065 TE+OO 
9.65 17439E-01 
-5.5*596726-01 
-1. 88 7 5 CO IE +00 
■2. 83667916 *00 
-3.65067156+00 
-5. 8214 37CE+0C 
■8. 15 35059E+0C 
■9.9119<53E+00 

■ 1. CC 888795 +0 l 

• 8* 3470C84E +00 
-5. 85 371046 +0C 
■1.2078373E+C0 
- 3. 56 £3 2996-0 1 

3.75252536 -Cl 
3. 70903755-01 
•2. 8C 538385-C 1 
-2.18 10 4 5 46-Ci 

■ 3. 229 2 81 7E -Cl 
-5.59557526-Cl 
■5.588327 16 -C 1 
-2.7300789E-C1 

1.9933*2 36-Cl 
6.49336646 -01 
8. 0 5 3 2 2 7 96 -01 
1. 00517406 +0C 
0. 

■3. 65067156 +CC 
3. 3451 3596-f l 
8.0106 8686 +00 
1.217 36166*01 
8.71*678*6*00 
•2.0*7.551*6+00 

■ 1.63 577716+Cl 

■ 1. 61*65*36-01 
1.79562505+C0 
1. 728868 3E+C0 
1.68149106-01 
1.87739106 +0C 

-3. 3244 61 OF +00 
' 3.7731C15E+OC 
2.79472*66-01 
2.881*3316-01 
2.9 57 601 26 -Cl 
3.0155*576-01 

3.C5581036-CI 
3.078* 1866-0 

3.C855978E-C1 
0. 

♦ 5.85 371C3E+CC 
-*.07800*76 +0C 
•0.71990® *6 -Cl 

3. 25676376+CO 
7.6725777E+C0 
1* 26 3 3 6836 +C 1 
*.*26623*6-01 
1.20888296+00 
1. 87*30565+00 
2. 21 672766+00 
2. 368CC7 2E + 0C 
2.*0 If 7806+00 
•7.6671 1*9E-C' 1 
■7.7C62572F-C1 
-7.7*5372 35-01 
•7.7748270E-C 1 
-7.79 37 38 16 -Cl 
•7. 80C25 **E-Cl 
0. 


-*. 12T26335+00 
— 1 . 988*3PB c +00 
2.09*01006-01 
1.982615*6+00 
2.89763615+00 
3. *2966666+00 
5 .23 33 5 706.00 
7.5 121605E+00 
9. 30073215+00 
9. 33422210+00 
7. 17553686+00 
*. 2O49300P+OO 
-l. 25288 3 8 C +00 
0.26747005-01 
5. 5063042 c -01 
5.2322956E-01 
3.34735996-01 
1.54O0283C-O1 
2. 25592010-01 
5, 1651002^-01 
5. 6646 1206-01 
2.6737621^-01 
-2.69619936-01 
-7.B279?97P-«1 
-1.04639646+00 
-1.1 8237 VIE+OO 
0. 

3.42966665*00 

2.29*45 33e. 0; 5 

-5. 3*092 32^+Ort 
-1.3186649F+0J 
-l. 1036973^.01 
1.30667766.03 
1.7699145®.01 
1.12796246-01 
■1.07T0024P+00 
-2.39022086*00 
-9.7290895P-01 
2. 0173269^+00 
3.B330962C+OO 
4, 200377 16**0 
-1.9536027P-OI 
-1.98371526-01 
-2.05408036-01 
-2.12433916-01 
-2.16805®4F-0l 

-2, 17*574726-01 

-2.18004106-01 

0. 

4.20*93856+00 
3 . 01 9000*6 +00 
1.0690648 e *OO 
-2. 01772626+00 
-6. 07 jo 8*96+00 
-1.0586538E+01 
-5.23199326-01 
-7.32301086-01 
•1.25108696+00 
-1.81048886+00 
-2. 1851 8266+ ft 0 
-2.24399856*00 
9. 0620523' -01 
9.07823556-01 
9. 12060356— ''t 
9. 1729732»-0l 
9.2153*126-01 
9.23152436-01 
0, 


5.9515454E+C0 
2.9 7026 945 +00 
■1.35998926-02 
■2.3722846E+C0 
■3.51 38035E+CO 
-3.93061646+00 
•5« 178S8 336 + CO 
-6.8826861 6+00 
■8.1 884G376+C0 
-7.95878186+00 
■5.8254451 E+CO 
-3.O60428OE+CO 
1.88227216+00 
■7. 3B02865E-C1 
-7.58284&8E-C1 
•7.01 891 60 E -01 
-4.41079456-01 
-1. 58943336-01 
-1.5061390E-C1 
-3,74025*66-01 
■4 .281 1948E-01 
-1.69036906-01 
3.003953C6-01 
7.40474696-01 
9.50*92556 -Cl 
1.06790906+00 
0. 

-3 .93061646 +C° 
-2. 70457546 + C0 
5.901C698E+00 
1.355O2C0E +0l 
1.1675827E+C1 
•1.32451C8E+CG 
-1.83C0393E+C1 
-7.5307HCE-C2 
1.0701*206+00 
2.493504CE+C0 
1.14693316+00 
•2.C7216896+C0 
■4.01425 71 €+00 
•4.36180715+C0 
l. 30435376-01 
1.3252402E-C1 
1,37473595-Ci 
1.4244430E-C1 
1.45347756-0) 
1.46162*66-01 
1.461 63606-01 
0. 

•3.O60628O6+CO 
-2.04492806+00 
-6 .2 241 1436 -Cl 
l .55 529C6E+C0 
4.4881 782E+C0 
7. 819fi822E+C0 
4.79247496-01 
5.77C35136-C1 
8.0185689E-OI 
1.2958452E+CO 
1.60064696+00 
1.69045466+CO 
-0.3OC 70666-01 
-8.31618236-01 
-8.3564667F-C1 
-8.40631016-01 
■e. 446616 56-C1 
-0.46201226— Cl 
0, 


J 
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TABLE F-6 ( Concluded ) 


COMPARISON OF CALCULATED SYMMETRIC MODE SHAPES FOR AIRPLANE BEAM MODEL 


Fourth elastic mode 


Direct solution 


Full modal synthesis 


Partial modal synthesis 


RI = 0 


tree-tree 


free -free 


clamped-free pinned-free 


RI = 0 


’•Dummy" RI 


RI = 0 


free -free 
RI - 0 


Fuselage < 


Wing / 


Tail / 


Displs . I 


Slopes ( 



Displs 


Slopes 


Twist 


1.65211936+01 
8.98775096+00 
2 .03297306+00 
-3.36908056+00 
-6.18864946+00 
-5.9109087E+00 
>1 .9465204E+00 
3.0643879E+00 
T.T670079E+00 
1.09424336*01 
1.17 17232E+01 
1.04121296*01 
7.37312166*00 
-1.90377045*00 
■1.34254076*00 
■1.59223196*00 
■1.07115546*00 
-2, 39363226-01 
4. 792725 IE-01 
1 12862426*00 
1.26236776*00 
1.03205146*00 
5.1796050E-01 
-1.41225616-01 
■*6.646 10826-01 
•6. 1 7304346-01 
0. 

-5.91090876*00 
-2.82470606*00 
2.38528486*00 
5.85431996*00 
4.83620766*00 
-6.88988806-01 
-3.56027826*00 
2.39636766-01 
1.18595346*00 
1 .2 3869496*00 
3.68536446-01 
-8.74648626-01 
■1.77742356*00 
-2.04302186*00 
-4.15061886-01 
-4.31777986-01 
-4. 45609766-01 
-4.56464826-01 
-4. 64270656-01 
-4. 68975106-01 
-4.70546756-01 
0. 

1.04121296*01 
8 . 094 57 39E *00 
2.89585636*00 
-4.37420016*00 
■1.28202746*01 
-2.1699M9E+01 
•3.32306126-01 
■1.9377348E*00 
-3.19116356*00 
-4.00092236*00 
-4.37934206*00 
-4.469 83816*00 
5.755S9-45E-C1 
5.79963726-01 
5.83339126-01 
5.85839936-01 
5.37312066-01 
5,97803046-01 
0. 


1*7 304901 6*C1 
9. 1390295 6+00 
1*63268536*00 
-4.08615 266+00 
-6.75703976*00 
-6. 11615716+00 
—1.33896 326+00 
3. 6656(1 106+00 
e.<tl99546+00 
1.10853746+01 
1.69125 386*01 
8.&M53486+00 
4.C3* 13 366+00 
-2. C 6755 09F+00 
■1.5960* 156+00 
-l.7024( 476+00 
-W1064* 6*6+00 
-1*94023 22E— 01 
5.95451 9*6-01 
1.23701246+00 
I.Z862P 346+00 
9.4654*506-01 
3.24342256-01 
-4.4808212E-01 
•8.77785 24E-01 
-1.00373256+00 
0. 

-6*1 16 1+716+00 
*3 .84205 1*6+00 
2 .36480 40$ +C0 
7.14012056+00 

6. 31930196+ 00 
-1.C 6904646-01 

-1. 0**02 376+rtf 
2.97724406-01 
1.11012 396+00 
1.63749066+00 
5.63Z4{ 776-01 
-1.0 19760 26+00 
-2.24740376+00 
-2.<.4l6 a l4t+O0 
-i .15674UF-01 
■5'.2°20184E-O1 
-5.7684190 6-01 
-^.74209576—01 
-4.9*26* 596-01 
-5.919*3976-01 
■>.8414*4*6-01 
7. 

8.6?tr3486+fO 
7. 12944486+ OC 
2.9226( 46E+00 
■3.7628* 38E+C0 
-1.14 32' 206*01 
■1.C539* 286+01 
-4. > 8499 C 56-01 
■1.4053* 396+oC 
-2.633035***0-7 
-3.401 11 4*6+00 
• l. c 9523 296* CO 
•4.08241 83*+fO 
7.tC134546-Cl 
+.64714916-71 
7.71806746-01 
7.7545(4 36-01 
7.77439696-01 
+.76369 846-01 
9. 


1.6521 1936*01 
8. 98775 096+00 
2.03297 3 CE *00 
-3.38908046*00 
-6. 18864946+00 
-5.91090876*00 
- L. 8465204E+00 
3.06438796+00 
7.76700786+00 
1.09424336+01 
1.17172316*01 
1.04121296*01 
7.37312166+00 
•1.90377O4E+QO 
-1.84254076+00 
-1.59223196+00 
-1.07115546*00 
•2. 89363226-01 
4.79272516-01 
1.12862426+00 
1.26236776+00 
1.03205146+00 
5. 1 796050E-01 
-1.41225606-01 
-6.64610816-01 
-6. 17384336-01 
0. 

-5. 91090 8 76+00 
•2.8 24706 CE +00 
2. 38528496+00 
5.85432006+00 
4.83620776+00 
•6. 88988826—01 
-8.56027846+00 
2.39636766-01 
1.18595346+00 
1.23869496+00 
3.68536456-01 
-8. 7464864E— 01 
■1.77742356+00 
■2.06302186+00 
-4. 15061886-01 
-4.31777986-01 
-4.45609766-01 
-4.56464826-01 
-4.64270646-01 
-4.68975106-01 
-4.70546756-01 
0. 

1.04121296+01 
8, 09467396+00 
2.89585636+00 
-4. 3 742081E+00 
■1.28202 74F+01 
•2.16996196+01 
-3. 32306116-01 
-1.93773486+00 
*3.19116 346*00 
•4. 00092236+00 
-4.37934206+00 
"4.469838 1E+00 
5. 75569446-01 
5.79963716-01 
5. 83389116-01 
5.85839926-01 
5.87312056-01 
5.87803036-01 
0. 


1. 6 594*63 6*01 
9.C38 40156+ 00 
1.98120906+00 
-3.50276966+00 
-6. 201 13BTE+00 
-5. 8 85 9563 F+ 00 
-U6779757E+00 
3.4702656E+00 
8.29441686+00 
1.13618346+01 
1.18753426+01 
1.05605466+01 
6.54855436+00 
■1.90411706*00 
-1.84881226*00 
-1.620*7476*00 
-1.06476736*00 
-2. 5 7116916-01 
4.53896746-01 
1.18940476+00 
1.31343956*00 
1.03613166+00 
4.40710466-01 
-1. 93279176-01 
-5.57280346-01 
•8. 30 10 7086- 01 
0 + 

-4. 8 854563 €+00 
-2.79482186+00 
2. 20367576*00 
5.56178426*00 
+.724*9106*00 
-5.74017*96-01 
-4.35131366*00 
2. 2694 88* E- 01 
1.16454646*00 
1. 18032976+00 
3.91150056-01 
-9.11318466-01 
■1.73772836*00 
-2.C47621 96*00 
-3.9 3C 8583 6- 01 
-4.CB685C2E-01 
-4.22544426-01 
-4.33*37*56-01 
-4.40446*06-01 
-4.43057136-01 
-4.46433736-01 
0. 

1.056054*6*01 
8.12119106*00 
2. 72273096*00 
-4,58888766*00 
-1.29005086*01 
-2. 15469246*01 
-2.58640826-01 
■2.04«33176*00 
-3.26067426*00 
■3.57304936*00 
-4.2819C776+00 
-4.3*13*116+00 
*.17259626-01 
*.20839976-01 
5.240527*6-01 
4.26604*56-01 
5.28251136-01 
5.28816776-01 
0. 


1.76081146*01 
9,14488026+' , 0 
1.33476426*00 
-4.*Ai598»6+00 
-6.78963696+00 
-5. 60049086+00 
7.205083*6-01 
7.4^80232**00 
1.28964646+01 
1.494^3036*01 
1.29394*26*01 
8,70251316+on 
*7.29700646-03 
-2.13739486*00 
-2.0726358**00 
-1.7*20743*+00 
-1.06972*36+00 
-7.05213966-02 

8, 19C198I6— 01 
1.68373 186+OQ 
1.61738946+00 
1.0009*21**00 
1.07603516-02 
■1.0042426F+00 
-1.5°*l397*+ro 
-1.92474276+00 
0. 

-5. 600*9096+00 
-3. 48340*66+00 
5. 810? 1 836-0 1 
4.34822466+00 
4.17803576*00 
■2.67474996-01 
-6.62631276+00 
4.07*l077C-rtl 
7. 7271640* -0 1 
I . 13770736+00 
*.50O8?44*-01 
-6.40207586-01 
-l.4509470*+"O 
-1.68906566+00 
-7,04827366-01 
-7.198*6116-01 
-7.40778196-01 
-7,808395 l*— 01 
-7.990 1 1 326-01 

-8.04142386-01 

-8.042436l*-01 

0. 

6.70241316+po 
6. 77630*0**00 
3,0311465*+O0 
-3.4201934*+O0 
■1.21724636+01 
-2. 2024900* +01 
-7.97071*56-01 
-t. 29503426+00 
-2.5299267*+op 
-3. 89054 176+00 
*4 •">5346586 +00 
■5.012*0446+00 
1.380564**+00 

1.38348566+00 

1.39113306+00 
1.400* 857* +00 
1.40923316+00 
1.41tl*42*+00 
0. 


J. 78191706+0 
5,09999766 +C0 
1. 13559116 +CG 
-4.7009C786+00 
•6.90393006 +C0 
-f. 37787896 +00 
i. 882946 76 +C0 
9.46494186+00 
1.52745816+01 
1.7C356726+01 
1.38722826+01 
P. 3343 8436 +09 
-2.64148256+CO 
-2.2CS0479E +00 
*2.12428376 +C0 
•1.75C5018E+00 
■l.C5938816*C0 
•l. 58658706-C 3 
5.62C81816-CL 
U8 1599626 +C0 
1.78778876+00 
1.C165751E+CC 
■1.7604 11 56 -Cl 
• 1.3« 41 3506 +0C 
■2.03809446 +CC 
■2.41091126 +C0 
C. 

•5. 377P789E +C n 
-3.200C8376+CO 
-1.41C8857E-C2 
2.8*279836+00 
2.9312190E+CO 
•1.22247106-CJ 
*4. 62 379326 +C0 
4.81041926 -Cl 
6. 71262596-Cl 
4. 56 7352 7E -Cl 
4. 41 457786— Cl 
-4, 13570546 -Cl 
-1.01645976+00 
•1. 1 7885C0E +C 9 
■P.3318670F-C1 
■*.45702226 -Cl 
•P, 8 885 3 136 -01 
-5. 28208306 -Cl 
-5. 51 2522 36 -Cl 
-5.577806 J£ -Cl 
-5.5758450E-C 1 
9. 

4.3243643F +C0 
6.C861761E+0C 
2.5528664E+C0 
•3.4138671F+0-5 
■ 1.1 8140 2 66 +C1 
■2. 14592 8 56 +C1 
■1.C190453E+C 0 
•1.33421366+00 
-2. 31637246 ♦C'* 
-3. 650361 56 +C0 
-4.63252036+CC- 
■4 . 44 768466 +C rt 
1.76 5040 26 +CC 
1. 765022 36 ,*C 3 
1 « 77*44 75F +C 9 
1.T5233376+0C 
1 .PC 275896 +00 
1.8C6T4C9E+00 
C, 
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Beam Beam Beam 

segment segment segment 

#1 #2 #3 


8D.O.F. 6D.O.F. 10D.O.F. 

(b) Partitioned beam 


Figure F-l.- Lumped mass representation for vibration 
analysis of uniform beam. 
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Total system 



Figure F-l.- Partitioning scheme applied in vibration analysis 
of model. 


589 



APPENDIX G 


A GYROSCOPIC FINITE ELEMENT FOR USE IN DYNAMIC ANALYSES 
OF GYROSCOPICALLY COUPLED ELASTIC SYSTEMS 

In dynamic analyses* of elastic systems having large rotating 
components, such as propellers or proprotors on propeller- or 
proprotor-driven aircraft or the fans of high bypass ratio ducted 
fan jet engines on turbo-fan jet powered aircraft, the gyroscopic 
effects arising from rotation may have a non-negligible influence 
on either the overall or local system dynamic characteristics. 

For dynamic analysis purposes the primary gyroscopic effects of 
such rotating components can be accounted for by idealizing each 
component as a rigid rotating disc. A finite element stiffness 
model based on this idealization which has the convenience of being 
readily incorporated into either a direct or modal formulation for 
dynamic analyses within the Lagrangian scheme for establishing 
equations of motion is derived below. The approach taken here 
is that of modifying the Lagrangian potential for the uncoupled 
system to account for the gyroscopic effects of any rotating 
components . 


* Within the context of this discussion "dynamic analysis" includes 
both natural mode vibration analysis and structural response to 
time-dependent external excitation. 


590 



591 


Within the finite element methodology the complete structure 
is partitioned into a number of simpler substructures. The spin- 
ning component is taken to be one such discrete substructure which 
is idealized as a rigid disc rotating with constant angular velo- 
city ft about its polar axis. The kinetic energy of a spinning 
disc performing translational and angular motions in space can be 
derived on the basis of the three sets of orthogonal axes shown 
in Fig. G-l. Coordinate axes ^^ 0 Z 0 » the primary reference axes, 
are fixed in space. The axis systems x r y r z r ®nd y ^ z 0X6 "both 
moving coordinate systems located at the disc center of mass, 

denoted by 0. The x y z system moves only in translation, its 

r r r 

coordinate axes remaining parallel to the corresponding axes of 
the space-fixed axes. To maintain the identity of the spin speed 
of the disc about the x axis as a distinct quantity the body axis 
triad xyz is fixed in the disc only to the extent that it 
participates in the variable (perturbation) angular motions of the 
disc in space. These axes are oriented such that the x axis 
remains normal to the plane of the disc; the plane formed by the 
yz axes lies in the plane of the disc. The disc spins about the 
x axis with angular velocity ft with respect to the xyz system. 
Euler ian-type* angles 6, ip, and <j> are taken to define the 

•Here the angles refer to rotations about mutually perpendicular 
axes in contrast to the unsymmetric definition of the Euler angles. 
A discussion of these alternative angles for describing the 
angular motion of a rigid body in space is given by L. A. Pars: 

A Treatise on Analytical dynamics . John Wiley and Sons, Inc., 

New York, 1965, pp. 103-104. 


A 
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orientation of the disc with respect to the translating axes 

x y z . The Cartesian coordinates of the center of mass in space- 
r r r 

fixed axes together with the "Eulerian" angles completely describe 

the position of the disc in space and thus constitute a suitable 

set of generalized coordinates for the substructure. 

The order of rotation in transforming from the translating 

axes x r y r z r to the body axes xyz is a positive pitch 0 about 

the y r axis, followed by a positive yaw ip about the displaced 

z y axis, followed by a positive rotation about the displaced x y 

axis, as indicated in Fig. G-l. Since the axes moving with the 

disc are at the center of mass, the motion of the center of mass 

in the space-fixed system can be treated independently of the 

angular motion of the disc about its center of mass. The disc 

• • • • • • 

has velocity components x , y , z , 0, )J), <j>, and ft. If ft), ft) , 

O O O Jr 

and ft) are the angular velocity components relative to the body 
z 

axes xyz, the total kinetic energy of the disc can be written in 
vector notation as 


where 



(G-l) 


• • 


r = x i +yj + zk 
o o o o o o 


ft) = ft) i + u j+w k 
x y ° z 


H = Ift)i + Ift)J + Ift)k 
xx y y z z 


(G-2) 


j 
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Because of polar symmetry the mass moments of inertia in the ex- 
pression for H are constant even though the "body axes xyz are 
not fixed in the disc. Prom Fig. G-l the angular velocity compon- 
ents relative to the xyz coordinate system can he written as 

0) x = + 6 sin ip + 


( 0=0 cos \p cos <j> + \p sin (p 

y 

• • 

(0 = i|> cos <|> - 0 cos ip sin <p 

z 


(G-3) 


For small angles, such as assumed in small 
G-3 reduce to 

• • 

(0 X z a + 0* + * 

oo z 0 + iLd) 
y 

• • 

u z z ip - e<f> 

We can also write 

• • 

X 3 X 
O 

y Q ~ y (G— 5) 

• o 

Z 2 Z 
O 


vibration theory, Eqs. 


(G-U) 
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Substituting Eqs. G-2, G-U, and G-5 into Eq. G-l and noting that 
I = I z from symmetry, the kinetic energy of the disc, to second 
order in the perturbation quantities, is given by 

T Q = | M (x 2 + y 2 + z 2 ) + | I x (fi 2 + 2fi6£ 

+ 4> 2 + an}.) +|i (e 2 + } 2 ) (g-6) 


The gyroscopic coupling term occurring as a consequence of spin is 
underlined. Eq. G-6 can be writtten in the matrix form 


f ^ 

T 

— 








r -v 

X 


M 

0 

0 

0 

0 

0 

i 0 


X 

y 


0 

M 

0 

0 

0 

0 

1 0 


y 

z 


0 

0 

M 

0 

0 

0 

0 


z 

{ 6 

> 

0 

0 

0 

I 

y 

0 

0 

1 

< 

6 

1 


0 

0 

0 

0 

I 

y 

0 

1 o 


* 

♦ 


0 

0 

0 

0 

0 

X x I o 


! 

1 ■©• 

$ 


0 

0 

0 

~al x 

0 

0 

| o 


* 

s. ^ 









1 




(G-7)* 


or, in abbreviated notation 



r 

{y> 

T 

(ML 

i 

! [i] 


r ■> 

{ Y> 

T = i < 
G 2. ' 

w 

> 

U 

[i] T 

i 

L 

« [o] 

1 J 

< 

w 

< J 


( G— 8 ) 


*The term 1/2 I x (fi 2 + 2fl}) has been deleted because it will 
not contribute to the final equations of motion. 
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To accommodate a spin direction opposite to that shown in Fig. G-l 
simply replace ft in Eq. G-7 by -ft. Gravity has been removed 
from explicit consideration by assuming that all perturbations of 
the coupled system are to be measured from the static equilibrium 
position assumed by the structure with all the components spinning 
and gravity acting. 

The corresponding potential energy expression is given by 

V G “ 2 {Y}T [ * ] G {y} (G “ 9) 

where 

[K] g = [Null] ( G-10 ) 

since a rigid body has no strain energy associated with its 
displacement. 

Eqs. G— 8 and G-9 constitute the desired kinetic and potential 
energy expressions for a rigid rotating disc approximation to a 
spinning structural component such as a propeller, proprotor, or 
fan. There is one such pair of expressions for each rotating com- 
ponent of a partitioned structure. These are simply grouped with 
the kinetic and potential energy expressions for the nonrotating 
substructures, a transformation to system generalized coordinates 
effected by enforcing inter-substructure displacement compatibility, 
and the resulting expressions substituted into Lagrange's equation 
to obtain the system equations of motion. 


A 
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COMPUTER PROGRAMS 

This appendix contains a listing of the computer programs 
employed in the numerical studies of this dissertation. These 
include three proprotor programs: 

PRSTAB6 - Proprotor/Pylon Stability 

EF0RCE1 - Proprotor Force and Moment Derivatives 

ROTDERU - Proprotor Flapping Derivatives 

and two computer "packages” for natural mode vibration analysis, 
each "package" consisting of an assembly of programs executed 
sequentially with disc communication between them: 

DSTIFF/BJD5 - Vibration Analysis by a Direct Method 

COSMOS /M0DALC/BJD5M - Vibration Analysis by Component Mode Synthesis 

A sample input is included with each of the programs. 

The programs are written in FORTRAN IV for the CDC 6000 series 
computers with the Langley Research Center version of the SCOPE 3.0 
operating system and the RUN compiler. 

The author takes this opportunity to again acknowledge the 
programming assistance provided by Barbara J. Durling* and 


* Structural Mechanics Branch, NASA-Langley 
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Robert N. Desmarais .* In addition to providing consultative services 
several subroutines from their personal computer program libraries 
were made available to the author for use herein. Specifically, 
computer program BJD5 and subroutines WMTXC, FREQ, and ZEROM used 
in the computer package for natural mode vibration analysis by the 
direct method were written by Barbara Durling. Program BJD5M and 
subroutine ALLEIG represent modifications of BJD5 by the author for 
use in the computer package for natural mode vibration analysis 
by component mode synthesis. The subroutines WMTXC, FREQ, and 
ZEROM were also employed in this latter assembly of programs . The 
function subprogram CIRC for evaluating Theodorsen's Circulation 
Function in program PRSTAB6 was written by Robert Desmarais. 


* Aeroelasticity Branch, NASA-Langley 
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PROPROTOR/PYLON STABILITY 


PROGRAM PRSTAB6 UNPUT, OUT PUT, TAPE l, TARE 2, TAPE 3. TA PE 4, TAPES = I NP UT ) 


«.****♦* «**ft ******* ftftftftftftftftftftft ****** ****„„ ft* ..ft****,,,,*,,*,** ***,*,,,***,*** 


* ft 

* THIS PROGRAM FORMULATES THE LINEAR EIGENVALUE PROBLEM * 

* FOR THE DETERMINATION OF THE FLUTTER MOOES AND * 

* FREQUENCIES OF AN ISOLATEO PROPROTOR/PYLON SYSTEM. THE * 

* MATHEMATICAL MODEL ASSUMES A RIGID PYLON HAVING THREE * 

* TRANSLATIONAL AND THREE ROTATIONAL DEGREES OF FREEDOM * 

* AND A RIGID-BLADE GIMBALED ROTOR HAVING TIP-PATH-PLANE * 

* FREEDOMS IN PITCH AND YAW. THE PROPRGTOR IS TAKEN TO * 

* BE FULLY CONVERTED FORWARD, RE PR ES ENTI NG A HIGH-SPEED * 

* AIRPLANE CRUISE MODE OF OPERATION. EITHER THEODORSEN * 

* UNSTEADY AERODYNAMICS DR QU AS I- STEAOY AERODYNAMICS * 

* MAY HE EMPLOYED FOR THE DISTRIBUTED BLADE LOADING.. * 

* BECAUSE THE RESULTING EQUATIONS CONTAIN NONPROPORTIONAl * 

* DAMPING, THE N EQUATIONS OF SECOND ORDER ARE TRANSFORMED ♦ 

* TO AN EQUIVALENT SET OF 2N FIRST ORDER EQUATIONS IN * 

* ORDER TO REDUCE THF MATRIX EQUATIONS TO STANDARD * 

* EIGENVALUE FORM. * 

* * 


***** ****************************** ******** **** ************************* 


c 

c 

c 

r 

c 

c 

r 

r 

c 

c 

c 

c 


KASE-1 -TPP PITCH AND YAW AND PYLON PITCH AND YAW 
K A$E= 2 - PYLON PITCH AND YAW 

KASE=3 —TPP PITCH AND YAW 

KASE=4 -PYLON PITCH, YAW, AND VERTICAL TRANSLATION 
KASE=5 -TPP PITCH AND YAW AND PYLON PI TCH, YAW, AND 
VERTICAL TRANSLATION 

K. ASE = 6 -TPP PITCH AND YAW AND PYLON PITCH 
K ASE= 7 -TPP PITCH AND YAW AND PYLON PITCH, YAW, 

AND AXIAL TRANSLATION 

K A$E = 8 -TPP PITCH AND YAW AND PYLON PITCH, YAW, 

VERTICAL TRANSLATION AND AXIAL TRANSLATION 
KASE=9 -TPP PITCH AND YAW AND PYLON VERTICAL TRANSLATION 


C I AERQ-i -THEODORSEN UNSTEADY AERODYNAMICS 

C I AERO-2 —QUA S l — STEADY AERODYNAMICS 

C I AERO* 3 -NO AERODYNAMICS (SOLUTION GIVES NATURAL MODES) 

C I MACH-l -PRANOTL-GLAUERT MACH NUMBER CORRECTION 

C l MACH-2 -MACH AND COMPRESSIBLE FLOW ASPECT RATIO CORRECTIONS 

C IMACH*3 -NO CORRECTIONS 

C IDAMP^l -VISCOUS STRUCTURAL DAMPING E MPLOYEO FOR PYLON/WING 

C I DAMP=2 -COMPLEX STRUCTURAL DAMPING EMPLOYED FOR PYLON/WING 


COMPLEX BM( 8 ,8) «BCt 8,8) ,BK( 8, 8) , H( 16, 16 ) , W( 16,16) .LAMBDA! 16) ,DET, 
1 A (8, 8).BC 8. 8), PI 16) ,Q( 16) , AS! 16, 16) ,C, AT! 16,16) , 

7 P OR 116), AST! 16 ,17) 

DIMENSION I PIVOT !8),INDEXI8,2),INTH!16,2),VKNOTSI60),FREQ!20), 
l T I 16, 3 ) »U ! 8. 81. TT! 8,8), IR ! 8 1 , RQ I 8 ) , FR EQl! 20) 

REAL MACH 


A 
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COMMON He ADI ( 12) 

0 I ME NS tON Z<16l 

CCMMON/UNSTD Y/SUMI 16 I , S ,HS0 . M ACH , R, BCH, VfcL. FREQ l . II , I AERO, t MACH 
COMPLEX Al,A2,A3,A4,A5.Bl.B2,B3 
EXTERNAL AERO 

NAMFL IST/ROTOP/NB,BI,RM,BU, PRECONE, HI, H2,R. BCH. DEN, DENSL. 

L AO,OELTA3,HSLONG,HSL AT , HDLONG, HDLAT, REF, SWPLDNG, 

2 SWPLAT, EPSILON, TD, VS 

NAMEL IST/PYL0N/PM,PfR0LL.PIPITCH,PIYAtf,HBl,HB2.PSR0Ll,PSPITCH. 

1 PSYAW.PSX, PSY, PSZ.PDX, PDY » POZ » PDROLL ,P DP ITCH, 

2 PDYAW.CB.WEMZ 
l READ 1000, (HEAOUIl. 1 = 1,12) 

IF1F0F, 51 8998,8999 

8997 FORMAT ( 1 HI/ / * PROGRAM PRSTAB6 STOPPED ON (EOF, 51*1 
8999 CONTINUE 
1000 FORMAT < 8A 10 I 

READ 1010.KASE,NFREQ,NVEL . 1 AERO, I MACH, I DAMP 
1010 FORMAT (2014 ) 

READ 1020. (FREOUI , 1*1, NFREQ1 
READ 1020, (VKNQTSm. 1*1, NVEL > 

READ 1009.ETA1, ETA2, INC 

IF « I AERO. EG. 1 l READ 1020, (FRFQK1 1 1 1 = 1, NFREOI 
1009 FORMAT (2F 10, 4, I 101 
1020 FCPMAT(8F10.4> 

READ ROTOR 
READ PYLON 
RIMNB*BI 1/2 

N0LONG=HDLONG*2 *SQRT (RI *HSLONG) 

H0LAT=HDLAT*2*SCRT(RI*HSLAT1 

I F( l DAMP. EQ . 1 1 GO TO 5 

PGX=2*PDX $ PGY=2*P0Y $ PGZ=2*PDZ 

PGPI T CH=2*PDPITCF * PGYAW=2*PDYAW $ PGROLL* 2*PDR0LL 
P C X* P D Y= P DZ = P OP I TCH * PDY A W =P OP OLL = 0 . 0 
GO TO 6 

5 PGX=PGY=PGZ=PGPITCH=PGYAW=PGROLL*0.0 
PCX* PDX*2 *SQRT ( ( PM*PM)*PSXI 
PCY=PDY*2*SQRTI (FM+RM)*PSY) 

PC7=P0Z*2*SQRT< <FM*RM*WEMZ1*PSZ) 

D DPl T CH*PDP ITCH*2*SQRT( < R M* < H 1**2 H-PI PI TCH*PM*( HB l* *2 1 
l *PM*(CB**2I )*PSPITCH> 

PDYAW*PDY AW*2*SQRT ( ( RM*( H2**2 M-P I YA W+PM*1 HB2**2 1) *P S YAW 1 
PDR0LL=PDR0LL*2*S0RT(<NB*BI+PIRDLL<-PM*(CB**2) )*PSROLL 1 

6 CCNTINUE 
RUM N B*RU 1/2 


DELTA 3=DE LT A3 /5 7.29577951 3082 3 
EPSILON=EPSILON/57. 2957 79 51 30823 
PREC0NE=PRECCNE/57.2957795130823 
IF( tAER0.EQ.3J DEN=0.0 
GAMMA*! DE N* AO*BCF*( P**<U I /B I 
RB=REF*R 

CO 500 11=1, NFREO 
AF=FP EQ( I I I 

FRFOI III* (6,283 18531*FREQ(I I ) 1/60 
IFUAERO.EO.il FREOIUI 1 = 6.28 3 185 31 *FRE OU I I) 
DO 500 J J=1 , NVE L 
CO 10 1 = 1 ,8 
DO 10 J=l ,8 
8M( I , J 1*0.0 
BCU.Jl* 0.0 
10 BKII.J)* 0.0 


,1 
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RP(l. ll=RM(2,2)=BM(3.3l*RM+PM $ BM( A, Al *BM( 5,5) =R I 

BM<3. 3>=BM( 3,31 ♦WEMZ 

BM(6, 6) =N8*BI*PIR0LL «-PM*(CB**2l 

BM<7. 7>*Rl+RM«( HH‘*2H-2.*PU*PRfcCONE*Hl*PIPlTCH*-PM*(HBl**2) 

BM( 7 » 7) =BM( 7» 7) *PM*(CB**2 ) 

9MI8, 8>=R I*RM*(H2**2l«-2.*RU*PRECaNE*H2FPl YAta«-PM*(HB2**2) 

BM(2 • 5 1=RU*PREC0NE $ BM(2.8l*RM*H2+RU*PPECONE+PM*HB2 
BM(3. 4)=-RU*PREC0NE * BM(3,7)*-RM*Hl-RU*PRECCNE-PM*HBl 
BM(A, 7)=RH-RU*PREC0NE*Hl % 8M< 5, 8 1 *R H-RIJ*PREC0NE*H2 

BM( 5, 2)*BM( 2 « 5) $ BM( 7,3 l*BM (3, 7) i BM( 7» AI=BM( A, 7 ) 
BM(8.2)=BM(2,8) t BM(8.5 >=BM(5,8) 

BM( l » 7)=BM( 7,1) =-*PM*CB 
VEL= VKNOTSI JJI/.592 
MACH- VEL/ VS 
S = VEL / ( FR EO ( tl)*RI 
HSQ=S**2 

PHI=ATAN( VEl/(FREQ( II)*RB1) 

I F( t A ERO . EQ • 3 1 CO TO 11 

CALL MGAUSS( ETA l ,ET A2 , l NC ,SUM , AERO, Z, 16 1 
A l=C M PL X ( SU M ( 9 ) # SUM ( 10) ) $ A3*CMPLX (SUM ( 3 1 , SUM( AH 

A5=CMPLX ( SUM { 5 1 *SUM( 6)1 $ Bl=CMPL X ( SUM! 7) , SUM! 8 1 1 

B3=CMPLX( SUM( 1) . SUM! 2)1 $ 82*CMPLX( SUM! 11 1 * SUM( 12 1 1 

A2=CMPLX ( SUM ( 13 ) « SUM ( LA) ) % AA=CMPLX( SUM* 15).SUM(16)) 

1 1 CFM=.5*GAMMA*(FREQ( II 1**2 >*Rl 
CFH=CFM*S/R 

cfmb=cfm*s*preccne 

IF( IAFR0.NE.3) GO TO 12 
A 1=A2=A3= AA= A5= Bi=B2=B3=0 .0 

12 CONTINUE 

RCM. 1)=TD*( (GAMMA*RI*FREQ( M )*A3)/IR**2) l + PDX 
BC(2 , A l-BC( 2 « 7) =CFH*A3/FREQ ( ! I I 
BC(2,2)=CFH*A1*S/(FREQI II )*R)+PDY 
BC( 2 « 8 l=CFH* Al* S*H2 / ( FREQ ( I II *R 1 
8C(3, 3>=CFH*Al*S/IFREQ( II >*R)*POZ 

BC(3, 5) = BC( 3,8I=C.FH*A3/FRE0( I I 1 * BC ( A , A 1 =CFM* A5 /F REO( II) *H0L0N3 
BC(3, 71=-CFH*A1*S*H1/(FRE0( II 1*R) 

BC( A» 7)=CFM*A5/FREG( I I ) *CFMB* A2*H l* S/ (F REO( II )*R> 
BC(A,21=CFM*A3*S/(FRFQ( 1 1 )*R ) 

BC(A, 8)=2.*RI*FRFQ( It) *CF M*A3*S*H2/ (FRE Q( III *R )-CFM9*AA/FREQ ( l I 1 
BCIA, 5)=2.*R I*FREQ( ! I )-CFMB*A A/FREQ ( I I 1 

BC(A,3)=-CFMB*A2*S/(FREQ( II )*R) t BC( 5, 5 1 =CFM*A 5/FREOI I l I +HDLAT 
BC(5, 8>=CFM*A5/FREQ( 1 1) *C FMB* A2*S*H 2/ (F REO( II)*R> 
BC(5«3I=CFM*A3*S/(FREQ( II 1 * R I $ BC ( 5. 2 ) =C FMB* A2*S/ ( FREO ( I I 1 *R ) 
8C<5. 7)=-2.*R!*FPEQ( II ) -CFM*A 3*Hl*S /( FREQ ( l II *F I *CF MB*AA/F REQ< II 1 
8C(5»A)=-2.*RI*FRE0(ll)*CFMB*AA/FREQ( II 1 $ BC ( 7 , A) = CFM* A5/FREQ ( I I I 
BC ( 6 « 1)=- (GAMMA *Rl*F RE Q( I I)*S*A3)/R $ BC( 6, 61 =POROLL 
BC(7, 7)=CFM*A5/FRE0( 1 1 H-C FMB* A2*H1* S/ (F REQ( II I *R ) +CFH+A l*S*H l*H 1/ 

1 (FRFQd I )*R H-PDPITCH $ BC C 7 ,2 )*CFM* A3*S/( FREOI 1 1 I *RI 

BC(7, 8)=2.*RI*FRE0I II)*CFM*A3*S*H2/(FREQ( II ) *R l-CFMR* AA /FREO ( I I I- 
l CFH*A3*H1/FREQ( III 

BC ( 7. 51=2 «*R I*FREQ ( 1 1 I -CFMB*A A/FREQ ( 1 1 )—CFH*A3*Hl /FREO( II 1 
BC(7,3)=“CFMB*A2*S/( FREQ( II )*R)-CFH*A 1*S*HL /( FREO ( 1 1 1 *R 1 
BC(8. 5)=CFM*A5/FREQ( III * BC ( 8, 3 >=CFM* A3*S/ ( FR E0( I I » *R I 
PC (8, 8>=CFM*A5/FRE0( 1 1 H-CFMB*A2*S*H2/ (FREOI II )*R H-CFH*A l*S*H2*H2/ 
l ( FREOI II)*R)+Pt)YAW 

BC( 8 « 7)=-2.*Rl*FRE0( 1 1 )-CFM*A 3*Hl*S /( FREQ ( 1 1 1 *R ) *CF MB*AA/FREQ(l I I 
l *CFH*A3*H2/FRE0( I 1 1 

BC(8«A)=-2.*RI*FREQ(III*CFMB*AA/FREQ( II I *CFH*A3*H2/FREQ( II 1 
RC(8. 2)=CFMB*A2*S/(FRE0( I I ) *R 1 *CFH*A1*S*H2/ (FREOI II1*R) 

BK (1*1 l=C MPL X ( PSX, PSX*PGX 1 % BK ( 2, 2 ) =C MPLX ( PSY , PSY *PGY ) 
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PK (3,3 )= f "PIX< PSZ, PSZ* nr ^ ) t BK< t, 6 I =CMPLX(PSRCIL« P SR OLl *PGR OLl ) 
n K ( 2, 4 ) s'* FH*F 1 *TAN C flE l T A 3 ) t RK ( 2 , 0 ) =CFH* A3 
PK ( 2,8l=-f FM*HS0*&1K FH*SV'PL AT*3 l *C'1S ( EPS t LCN J 

PK ( 3,5 I »0 F M#p 1 * T AN C DE l T A 3 ) t BK(2 » 7 I =CFH*SWPt.rF ,, '.*SlNC EPS It. ON ) *B1 
»k( 3, 7 >=c FH*A:*Mso-CPH#H.»swPLaMG*ras(ePsii.n‘i) s bkC3,4)*-cfh*a 3 
PK( 3 ,8 » *CFH*P1* S>'Pl.A T*S IN C t PS ILON I 

BK (4,4 ) •HSLOFO+CF M#B3* T ON (UCl TA3) +CF MR* 44 $ BK (4 , 0 ) = -C F»* A3*HSQ* 

1 C FM *P 3» S WP L A T *r C S ( f P S I L HM |-CF HR*R 2* S W n L t T * S IN ( E P S I LON ) 

BK (4,5)=>CFW*A5-r FM3*B2*TAM0tLTA3 ) 

kK ( 4* 7 ) =C rM#n 3 *SHPl jy,*SI Nl BP SI l ’ N > - C P*«R * A 2* H 5 0 ♦<* FN R* S W P I. U NG* B 2 * 

1 f r S C EPS I LON ) 

PK( 5» 5) =H Si AT4-r Fw*b3* T AN( OFLT A3 ) +CF MB*A4 
FK C 5 , 4 ) =- r FM* AO +R FMB* B2 *T AN C 0 EL T A 3 ) 

BK (0,7) *rF»*.« 3*HSQ-CF m*B3*Sv»PL >NG*COS( EPS I L CN ) ♦ C F v P * B 2 * S W P L ON G * 

1 S'M ?PS T( 3N » % 8 K ( 5 » 8 ) =f FK*R 3*SVPL A T*S IN C EPS I LCN ) -C F *B* 

2 A Z * HS 0 * C F MB* B 2 * S W P l A T *C OS ( E P S I L OM » 
BK<7,4)=nPV*ft3*T4!\ICDtLTA3)*CF N3*A4+CFH*A3*Hl 

RK( 7,0)-rr ”*A5-CFV|R*B2*TAN<0E(.TA3 )-CFH*BL *H1*TAN( DEL TA3) 

BK( 7,7) =f vr LXC °SPI TC.H ,p SP I TCH*PGP I TCHI+PF M*P3*SWPLCN r *S INC EPS ILON ) 

1 FMB*A 2>«HSO+CF BB*SWPLONG*B2*CRS( EP S 1 LCN )-CFH*A 1*HS0*H l* 

2 r f H*P 1* SWPL 3NG*H1 *CPS ( EPS ILON) 

RK C 7,8 J=C FM*B 3* SWPL A T * r OS C EP S l LON I -C F MB*R 2* SViPL AT*S IN C EPS ILON ) -C FH 
I *B1*SWPL AT*HI *S IN( t PS ILPN )-CFM*A3*HS0 

BK ( 8 , 5 ) =C F W *R 3*T ANCDBL T A3 ) *CF m 3*A4fCFH*A 3*H2 
PK ( 8 , 4 ) =-f F M * A5 +C C MB*B2*T AN l J EL TA 3 ) +CFH*B 1*H2*T AN C OE L TA3) 

BK( 8,7 )=p F'**A 3*HS0+CF 3*31 *SWPLONG*H?*SlMC E PS I LCN) -G FN*B3* 

1 SwFLnNG*C )S< e PS ILON)«-rF*B*32*SWPLONG*SINC EPSILCN) 

PK ( 8 » 8 ) =C M PIX( D SYAW,P SY AW*PGY AW )+CFM*B3*S WPL 4T*5IN( EPS ILON )-C FNR* 

1 A2*HS i 3fC FMB^B 2* SWPL AT*CDS { fcPSI LON ) -CFH* Al*HS0*H2 

2 +<" FH*Bl *SWPL AT*F2 *F OS C EPS ILON) 

FEWIND 1 

FEWTND 3 

WRITE (1 ) ( (RM( I , J ) , J- I ,31,1 = 1,8) 

V»F T TE(l)((B r (I,J),J=i f 8),I = l,8) 

WPITECi) ( (BK( I , J), J= L ,8 ), 1 = 1,8) 

no 8 1=1,3 

CO 8 J = 1 » 8 

e ii<itj)=o.i> 

DC 9 1 = 1,8 
S l ( I » I ) =1 •<< 

GP tn( 21 ,22,23, 24,25, 26,27,28,29) KASE 

21 NDF=4 

IRC 1 )=4 $ IP ( 2 ) = 5 $ 1 5 C 3 ) = 7 $ IR(4) = a 

GO TO 30 

22 KDF*2 

IP ( 1 )= 7 * IF (2 ) =8 

GO TO 30 

23 KDF=2 

IRC 1 ) = 4 t IRC 2) = 5 
GC TO 30 

24 N0F*3 

IR C 1 ) = 3 $ IP C 2 )*7 S IRC 3 ) = 8 
GC TO 30 

25 NDF=5 

IR C 1 )=3 $ IR C 2 ) =4 t IP C 3 ) =5 $ IRC4)=7 $ IRC5) = 8 

GO TO 30 

26 KDF=3 

IR C 1 ) =4 $ IP C 21=5 t I RC 3) ~7 
GC TO 30 
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2 7 M Of =5 

IRU)=1 i IR<2)=4 t IPO)=*» $ 1R(4)=7 $ I R ( 51=8 

GO TO 30 

28 N0F=6 

l R ( l ) - 1 $ I R < 2 ) = 3 * !R ( 3 ) =4 % IRI4)=5 $ IR(5)=7 $ IR<6)=8 

GO TO 30 

29 NDF=3 

T« C 1 1 = 3 t f R (2 1=4 $ IP ( 3 1 =5 
GO TO 30 

30 CONTINUE 

DO 5 0 KK=i.NOF 
I = IR ( KK ) 

DO 50 J= l .8 
50 TTIKK »J)=U( I t J) 

REWIND 2 
DC 330 1=1. NDF 

330 WR IT E 1 2 M TT I I.J).J=1*8) 

REWIND 1 

DO 333 K L = l ♦ 3 

R E AD ( 1 ) ( ( BM ( l * J ) . J= l . 8 ) .1 = 1 » 8 ) 

REWIND 2 
no 331 J= 1 * NDF 
READ! 2 ) CROC 11.1=1.8) 

DC 331 1=1.8 
BC 1 1 • J ) = Q .0 
DC 331 I J = t . 8 

331 ACM . J I=fiC< I » J ) ♦8M( I . IJ l*RQ( I J) 

REWIND 2 

DO 332 1=1. NDF 

RE AO { 2 ) I R Q I J ) • J = i * 8 ) 

DC 332 J= l ♦ NDF 

e*Mi . ji=o.o 

DC 33 2 IJ=1 .8 

33 2 BP I I « J) = BM< I . J 1 *RQ< I J ) *BC 1 I J . J ) 

WRITE <31 < (BM ( I.J)*J=l* NDF 1. 1=1. NDF) 

333 CONTINUE 
REWIND 3 

READ ( 3)1 ( BM( I.J). J=i. NOF). 1 = 1 , NDF ) 

R FAD I 311 1 BC I I . J ) * J= 1 .NDF > .1 = 1. NDF ) 

RF AO 131 1 1 BK ( l.J I. J=l.NDF) .1 = 1, NDF ) 

NDFT 2 =2*NDF 

CALI E I G2N ( BM.BC.BK. NDF. NDFT2.W, LAMBDA) 

DC 13 1=1 .NDFT2 

TU. I )=AI RAG ( LAMBDA! I ) ) /6 *2 83 185307 1T959 
T(I.2)=mi .11*60. l/AF 
IFIAIMAGILAMBDAI m.EO.O.O) GO TO 13 
T C I * 3 I = I REAL I LAMBDA (I ) I /ABS I A 1 MAG I LAMBDA! I) )) )*100. 

13 CCNTINUE 

PRINT 1014. HEAD! 

1014 FORMAT 1 1H 1/ / 12A 10// / / I 
VKEAS=VKNOTS( J J I *SORTC DEN/DENSU 
AR=3. 14159265358979*VEL /< FREQ III I *R ) 

PHI=PHI*57. 2957 795130823 
IF(DEN.NE.O.O) GO TO 1015 

V EL= VKNOT SI J J ) = AR=PHI=0 .0 

1015 PRINT 1013 

1013 FORMAT 1 I HO* 3 X .* ROTOR RPM* .2 8X » *VELGCl TY *. 27 X. * ADVANCE RATIO*. 
1 8 X . *LOCK NUM8ER*.9X.*INFL0W ANGLE*/ /26X . *FT /SEC* . II X. *KNOTS* * 
213X.*KEAS*. 17X.*J*.39X.*PHI*//) 

PRINT 1012. AF.VEL. VKN0TS1 JJ ) . VKE AS. AR. GAMMA. PHI 
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101 ? FORMAT! lX,f 15.3. 6X.F 15.8, 2X . F 1 5 • d . 2 X . £ l 5 • 8 * 5X • f 1 5* d * 5X. E 1 5 * 8 . 

1 5 X .f 15*8//// 1 
IFLKASF.F Q.2 1 GO TO 123 
I F ( HS LONG # NF • HSL A T ) GO TO 123 

S A VE l *1 • 0 ♦HSLGNG/ < R 1 *FR EQ < I I I ♦♦21 ♦ . 50*G AMMA*B i*T AN( Of LT A3 ) 

I F ( $ A V El • LT #0 .0 I GO TO 12 3 
Bff “ SORT ( SAVE 1 1 
BOR - 2 5*GA MMA ♦A5/6FF 
PRINT 101 6f BFf .BGR 

1016 FORM AT ( 1 X .43H**** BLADE FLAPPING FR EQUE NCY( CYCLES/ R EV ) =.F1Q*3. 

1 2QX.38H**** BLADE OAMP INGi PERCENT CRITICAL) =.FlO-3////) 

123 CCNTINUE 
PRINT 1011 

1011 FORMAT LI l X. *$YST EM E IGENV AL UES*.2 8X » ♦FREQUENCY* »24X •♦DAMP 1 NG*/// 

1 8X.*REAL*,12X. ♦IMAGINARY** 17X.*CPS*. 1 3 X, *CYCL ES/REV* « 

2 10X.*PERCENT CRITICAL*) 

PRINT 1040. ( LAMBCA ( I J.ITI I . J ) , J-i f 3 ) f I- 1 f NDFT 2 ) 

1040 FORMAT I.// 1 2X t El 5* 8 . 4X. E 1 5 .8 . 8 X . E 1 5. 8 * 4X * E 15. 8 . 8X. E 1 5* 8) ) 

CALL WCM< W. N0FT2»N0FT2) 

500 CCNTINUE 
GO TO 1 

8998 PRINT 8997 
ENO 


SUBROUTINE E I G2 N< BM. BC, BK .N .NT2 . W # L AMBOA ) 

CC W PL EX B Ml 8 . 8 ) . BC ( 8 * 8 ) . B K( 8 . 8 ) . H 11 6 . 16 ) . W 1 16 * 16) . L AMBOA! 1 61 *DET • 

1 A ( 8 * 8 ) ♦ B 1 8 ♦ 8 ) « P 1 1 6 ) • 0 < 16) » AS 1 16 * 16) * C ♦ A T< 16 . 1 6 ) * 

2 PQR 1 16) . AST ( 16 * 171 

CIMENSION I P I VOT ( 8 ) • INDEX 1 8* 2 ) « I NTH 1 16* 21 * VKNOT S120 ) . FREOC 20 ) . 

1 T ( 16 * 3 ) *U 1 8* 8 ) » TT ( 8 ♦ 8 ) t IR C 8 ) . PQ1 81 

I NTH (1*1) =NT 2 * t-NTHI 2*1 l-NT 2 

C ALL CXINV! BM , N * C t 0 » OET « I PI VOT. INDEX. 8, I SCALE ) 

CALL CMUL T ! BM * BC * A * N ) 

CALL CMUL T( BM.RK.B. N) 

on 20 1 = 1 . N 

nc 20 J=l *N 
A < I . J ) =-A ( I , J ) 

20 R ( I* J ) =— B ( I . J) 

CO 50 1=1. N 
00 50 J = 1 . N T 2 
50 MI.J 1=0.0 
OC 55 1=1. N 
J = N+ l 

55 M I ♦ J ) = 1 • 0 
E N = N+i 
CC 60 I=MN.NT2 
K = I— N 

DO 60 J=i.N 
60 MltJHIKJ) 

OC 6 5 I = MN.NT^ 

K = I— N 

00 65 J = MN.NT2 
L = J-N 

65 H ( I. J |=AI K. L ) 

CALL C F I G ( H . L AM BC A . N T 2 . 1 6 ♦ P . 0 . P OR » A ST . H . N T 2 ) 

RETURN $ END 
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SUBROUTINE CMULTCA.8.C.N) 
CCMPLEX A<8t8)tB(8t8)tC(8*8) 
DC 10 1 = 1 .N 
DO 10 J= 1 . N 
CM. J 1*0.0 
DC 10 K = 1.N 

1.0 C II • J ) =C( I * J J *A C I * K) *B< K* J) 
RETURN $ END 


SUBROUTINE WCM{ A. NR » NC ) 

CCMPLEX A ( 1 6 . 1 6 ) 

COMMON HE ADI 112) 

KE*0 

K SET = NC/4 
K LEF T * MOD { NC * 4 ) 

If (KLEFT.NE.O) KSET^KSET+l 
DO 10 KT= l » KSFT 
KB=KE ♦! 

KE=KE*4 

I F (XT •EQ.KSET ) KE=NC 
PRINT 500 1 * HEAD 1 1 ( J « J=KB * KE I 

5001 FCRMA T 1 IH 1/ / 12A 10// /IX. * SYSTEM EIGENVECTORS *///10H ROW C0L.8X, 
1 1 At 31 26X1 41 // 10X. *RE At** 9X. ♦IMAGINARY*, 31 8X,*REAt *, 9X,* I MAG I NARY* 1 
?.//) 

CC 10 1=1. NR 

10 PRINT 5002. I. <A< I, J > ,J=KB*KE> 

5002 f CRMAT ( ! 4 *8E 15. 7 ) 

R ETURN 

END 


SUBROUTINE AEROIX.ZI 
DIMENSION U 16) .FRE0K20) 

CQMMON/UNSTDY/S UP( 1 6 ) • S »HSO . M ACH, R , BCH, VELt FR EQ 1 , 1 1 , IAERO, IMACH 
COMPLEX C IRC.C.CCNST 
REAL PACH 

I F ( 1 A ERn . EO . 2 ) GO TO 91 

RFRE0=FRE01 Mil *BCH*S/< 2* VEL* SORT H SQ*X**2) I 
C=CIRC(RFREQ»F»G) 

GC TO 92 

91 C = (l. 0.0.0) 

92 (F( IMACH.EO. I ) CCMC0R=1.0/SQRT( 1. 0- I < MACH**2/ HSOI * ( HS0+X**2 ) I ) 
IF( IMACH.EO. 2 ) CC:MCOR*R/l 2. *BCH+R*SQRT( l.-( MACH**2/HSQ> * 

1 < HSQ«-X**2 )l) 

IF( IMACH.EO. 31 CCMCOR= 1 . 0 

CCNST=C*C0MCOR 

PC=SQRT(HSQ*X**2) 

7(11* RE Al (CONST *1X9*2’) *PQ ) $ Z ( 2 1 =AI MAGI CONST* ( X **2 )*PQ ) 

7(3)=REAL(CONST*(X**2>/PO) J 7 ( 4) =A IM AG (CONST* t X**2 )/P0) 

7(5) = REAL { CONST *(X**4)AP0 ) t 7. ( 61 =A I MAG (CON ST *( X**4)/P0) 

7 ( 7 ) = RE AL (CONST*PQ ) t 7. (8 ) = AI MAG( CONS T*PO ) 

7(9)=REAL(CCNST/PO) i l ( l 0) = AIM AG (CONST /PQ) 

7(11 )=RFAL( CONST *X*PQ) $ l ( 12 > = AI MAG( CONST*X*PQ ) 

7(13) =RFAL( CONST*X/PQ) * Z( 19) = AI KAG( CCNST*X/PQ I 
7 ( 15 )*REAL( CONST* <X**3)/PQ) $ l ( 161 =A I MAG ( C ONST*< X**3)/P0) 

RETURN t END 
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COMPLEX f-ONCT ION CIRCIX,F,GI $ REAL J0,J1 * COMPLEX D,P,W,CS0RT 
COMPILATION FIELD LENGTH IS 36300. SUBPROGRAM LENGTH IS 504. 

DATA Pi, GAMMA/3. 14159265358979,. 577215664901533/ 

IFIX.LT.1.E-4I GO TO 2 t IFIX.GT.20) GO TO 4 $ Z=2/X 
A=GAMMA— ALOG I 2) $ N=1 .3+. 75*SQRT l X*(X+28 )) $ K=N + l * S=-(-l)**N 
J1=Y1=0 $ J0=l. E— 100 $ ¥0=-S*J0/K % DO 1 1*1, M $ K=K~l 
Jl = ( 2*K*2 ) *Z*JO—J 1 $ Yl=Yl+S*l2*K+l)*Jl/(K*(K*l. )) 

JO* 1 2*K*- 1 ) *2* Jl-JO t Y0=Y0»S*J0/K 

1 S=— S * J i=2*Z*J0— J 1 $ JO=Z*J1-JO $ YO* A* J0+2*Y 0 
Y 1 =— J 0/X + ( A— 1 ) 4 J 1 ♦ Y 1 $ Jl=. 5*P I*J 1 * J0=.5*P I *J0 

0=CMPLXtY0,J0I/CMPLXiYl,Ji) * C IRC*l/ ( U.CO . 1 1. 1*D) * F=R£AL(CIRC) 
G= A I MAGIC IRC) $ RETURN 

2 IF(X.LE.O) GO TO 3 $ D=GAMM A*ALQG I .5*X ) *10 . , .5 1*PI 
0=-X*D/( 1-10-1)*.5*X*X> $ C I RC* 1/ (1*(0.,1.)*D) » F=REAL (CIRC) 

G=AI MAGIC IRC) t RETURN 

3 F* 1 $ G=0 $ CIRC=CMPLX(F,G) $ RETURN 

4 w= (0. ,4. ) *X S N= 120/ SORT I X) * P=. 5* l-l ♦CSJRT 1 l*4*N/W ) ) t N*2*N*1 

5 N=N-2 t P=N/(w+N/I 1+P) ) t 1FIN.GT.1) GO TO 5 t CIRC* 1-. 5/1 1*P) 
F=REAL IC IRC ) t G=A IMAGI C I RC ) $ RETURN 

END COMPLEX FUNCTION CIRC 


PROPRGTUR STABILITY CORRELATION - LANGLEY TDT TEST 139 - RUN NO. 3 
PYLON YAW UNLOCKED (298 RPM) 
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1 21 2 

3 2 
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SRQTOR N8=3» BI=900 . »KM=45. , BU* 138 ., PRECONE* 3. ,31 = 6.92 ,H2=6.92»R=19.25 , 
BCH*1.92,DEN*. 00222* DEN SL=. 00222 » AO = 5. 85 »0£LTA3=— 22 .5 , HSLQNG=Q. 0, 
HSLAT-O.O, HDLONG=0 .0 »HDLAT =0.0 *REF=.75 , SWPLUNG=0. 0, Sd PLAT=0. 0, 

EPS 1 LON* 0. 0*TD=1.0,VS=1 116.0$ 

SPYLON PM = 84. 2, PI ROLL* 0.0 , PI PI TCH=845. ,PI YAW* 845. ,HB1=2.39 ,H32=2. 39 , 
PSKULL=0. 0,PSP ITCH=2300000. , PS YAW* 5000000. ,PSX=42300 ., PS Y= 0. 0, 

PS 2 = 2 5200. »PDX=.Q13 *POY=O.Q »PDZ=.Q13 *PDRQLL=0.0 , PDP IT CH=.Ol 3 , 

PUYAw*. 013 *CB= 1.10, WEMZ=5.37t 


A 



* * 


007 


PR0PR0T0R FORCE AND to OMEN T DERIVATIVES 


PROGRAM HFORCEK INPUT, OUTPUT, TAPE5 = INPUT> 


****** *** 4 ****************** ******* ****************************** ******* 


* 

THIS PROGRAM CALCULATES THE DYNAMIC PRCPROTOR FORCE * 

* AND MOMENT DERIVATIVES ARISING FROM SINUSOIDAL * 

* PITCHING OSCILLATIONS OF THE PYLON. THE RIGID-BLADE * 

* MATHEMATICAL MODEL EMPLOYED HAS TIP-PATF-PLANE PITCH * 

* AND YAW AMO PYLON PITCH DEGREES OF FREEDOM. A QUASI-STEADY * 

* AERODYNAMIC THEORY IS EMPLOYED FOR THE DISTRIBUTED * 

* BLADE LOADING. * 

* * 


************************************************************************ 


CCMPLFX A (2,2), 8*21 ,DET ,HZ ( 6 0) ,HY ( 80 ) , MY (801 ,MZ<80) 

DIMENSION HEAD! ( L2 ) ,RPM(20 ) , VKNOTS (20) , FREQI 80 ) , IP IVOT (2 ) ,T( 80,3) , 
l INDEX(2»2)»TT (60,4) ,TU( 80,4) 

NAMELIST/ROTOR/NB, BI,BU, PRECONE, HI, R,BCH, DEN, AO, DELT A3, HSLONG, 

1 HSLAT.SWPLONG, EPSILON 

NAMEL I ST/ PYLON/ PH I YO 
1 READ 1000, (HEADIU) ,1 = 1,12) 

IF(EOF, 5)8998, 8999 

8997 FC RM AT ( 1H 1 //* PROGRAM HFCRCE 1 STOPPEO ON (EOF, 5)*) 

8999 CONTINUE 
1000 FORM AT ( 8 A10 ) 

READ 10I0,NRPM,NVEl ,NFREQ 
1010 FOP.MAT(20IA) 

RF AD 1020, (PPM(I), 1=1, NRPM) 

READ 1020, (VKNOTS (II, 1=1, NVEL) 

READ 1020,(FREQ( I),I = l,NFR6Q) 

1020 FORMAMREIO.A) 

RFAD 1020,ETA1,ETA2 
READ ROTOR 
PFAC PYLON 
P I=(N8*RI )/2 
PU=(NR*BU )/2 

DELTA3=DELTA3/5 7. 295779 51 3082 J 
EPSIL0N=FPSTLON/57.2957795130fl23 
PR EC ONE = PR ECCNE/57. 2957 795 130823 
GAMMA=(OEN*AO*BC,H*(R**AI )/BI 
PA = PH1 Y 0 

PHIYO=PHI YO/57. 29 57795 l 30823 
DC 500 11=1, NRPM 
AF=RPM( 111 

PPM( II )=(R.283I8531*RPM(II))/60 
00 500 J J = 1 , NVEL 
DC 490 KK= 1 » NFREQ 
RF=FREQ(KK) 

FREQ(KK)=FRFQ(KK)*RFM(I I) 

T(KK,1 )=PF 

T(KK,2)=FREQ(KK) /6. 283 l 853071 7959 
T ( KK , 3 )=FREO(KK ) 

Vtl=VKNCTS( J J1/.592 
S=VFL/(RPM(II)*R) 


A 
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F5Q»S**2 

WWI=SQRTIH$Q»E T A1**2) 

WW2»=SQPTtHSQ + ETA2**2) 

FQ = E TA2*WW2-E TA 1*WW1 

Al= AL00C I ETA2+-WW2 ) / I E T A.1* V(M1 ) I 

A2=WW2-WWl 

A 3= . 5*1 PQ— HSQ*A l ) 

A4=l 1./3. )*IWW2**3-WW1**3 )-HSQ*l WW2-WW1 ) 

A5=.25*l l FTA2**3)*WW2-I ET Ai**3 )*WW1 J-I3./8. ) *HSQ* l PQ-HSG*A1I 
P1=.5*(PO*HS0*U> 

P2= 11. /3. 1*1 WW2**3-WWi**3) 

B3=.25*(ETA2*WW2**3-ETA 1*RW1**3>- I 1. /8. ) *HSQ* ( PC*H$Q*A1 I 

CFM=.5*GAMMA*|RPM|II >**2I*RI 

CFH=CFM*S/P 

CFMB=CFM*S*PRE''ON£ 

FS=FPE0(KK )**2 

A { 1, lt«CMPtx(-P I *F S *H SL r JN G+C F M*B 3 *T AN I DE L T A3 ) *CFMe* A4 , 

1 FRE0IKK)*CFM*A5/RP M I II ) ) 

A ( 1 ♦ 2 |=CMPLX( CFM*A5 _ C FMR*B2*T ANIDELTA3)»FRECIKK)*I 2*’ 1*PPMI 1 1 > 

1 -FFMR*A4/R PM (III)) 

4(2, 1 ) = CMPLX| -CFM*A5*'CF*4B*.B2*TAN| DELTA3) »FREQtKKI*(-2*R!*FPM| I I ) 

1 + r FMB*A4/RPM I M ) ) ) 

A I 2 » 2) =CMPLX l— P I*FS+HSL AT4CFM*B3*T AN ( PELT A 3 ) +CFMB*A4» 

1 F P EQ( KK I *C FM*A5/RPM( III) 

p { i ) =CVPLX( ( FS*I P I +RU*PRECCNE*H1 )— CFM*B3*SWPLPNG*SINl EPS ILON ) 

1 *.f FMB*HSQ* A2-C FMB* B2*SViPLONG*CCS ( EPSILON) ) *PHIY0, 

2 -F C IKK I* PHIY0*I C FM+A 5/RPMI I I ) +CFMB*S*A2*H1/ 

3 |FP«(m*R»l I 

P (2 )=C‘*PLX( (-CFM*HSQ*A3*C Fm*SWPLONG*B 3*CO SI FP S I LON )-C FMB#B2* 

1 SWFL n NG*S I Nl EPSILON) )* PH I YO , FR EQ I KK )*PHTY0* 

2 ( ?*r i*p,pM( 1 1 )+CFM*S*A3*Hl/( PPM I I I )*» l-CFM3*A4/P PM I II))) 
CALL CXP'VI A ,2 , R»l »OET » IP IVOT . INDEX, 2, I SC ALE) 

DE T= 1 0.0, 1.0) 

PY I KK ) =CFH*(-B .*B< l ) *T AN! DEL T A 3 )- A 3*B ( 2)- SWPLONG*P l*SI Nl EPSI LON) * 

1 PH T Y0) — C FH*DE T*R F* A3* I BID+PHIYO) 

HZ I KK ) = -C FH*I p .*R| 2 ) *TANI DELT A3 )4HSQ*A1*PHI YO- A 3*6 1 1 ) — SWPl ONG* 

1 Bl*C n $( e PS I LON )*PH IY J ) -CFH*DET*IBF*B I2)*A3-BF*S*A1* 

2 H1*PHI YO/R) 

MYIKK)=-C FM*IB3*P| I) *TANI DLL T A3 ) ■*■ A5*B{ 2 )+SWPLHNG*8 3*S I N IfcP SI LON) * 

1 PxiYO)-CFM*DET*(BF*Bl 1 ) +BF*PHI YO )*A5 hCFMB*IB2*B (2) 

2 # T A N I DELTA3) +HSQ* A2*PHIY0-A4*B< 1 )-B2*SKPLCNG*C0S( EPSI LON) 

3 * PHI YO ) +CFMB*DE T# I BE* P,( 2 ) * 44-BF*S * A2*H1*PF I YO/R ) 

450 MZ IKK ) = ~r FM*( R3*B| 2) *TAN{ DELT A3 ) 4HSQ*A3*PH I YO- A5*B 1 1 ) -B3*SWPL0NG 

1 *m<;( pp s i LON ) *PHI Y<) )-CFM* DET*|BF*B I 2 ) *A 5-BF*S* A3*H 1*PH I YO 

2 /r )+CFMB*l-B2*tj(l )*TANIDFLTA3)-A4*B<2)-B2*SWPLrNG* 

3 S IN I EPS ILON) *PH IYD)-CFMR*0ET *1 BF*B 1 1 ) + BF*PHI YO) 

DP 33 I J- 1 , NFPF 0 

TT I I J, 1 ) = r E AL ( HZ I I J ) ) /PHI YO 

TTI I J ,2 1 = A I MAG I HZt I J I ) / I FFEG 1 1 J )* PHI YO ) 

TTI IJ, 3)=f EAL |NY( I Jj/PHIYO) 

TTI I J ,41= i I MAG I MY I IJ) )/ I FREQ I IJ )*PHIYO) 

TUI I J, 1 ) = FEAL IHYII J) ) /PHI YO 

TUI I J, 2 ) = AIMAGI HYI IJ ) )/ IFREOt t J )*PHI YO) 

TUI T J , 3 ) = F E At l W Z 1 1 J ) / PH I YO ) 

32 TUl I J, 4) = A IMAGIMZj I J ) ) / I FREQ! I J ) *PHl Y O) 

V K F A S= VKM CT S I J J ) *SQP T ID EM / .0 0 2 38) 

AP =3.14150265 3 58079* Vt l /{ PPM { I! )*R) 

PP I NT 1030, HE A 01 
1030 FORMAT! 1H l //1 2 A 10//// I 
PRINT 103 


J 
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1031 FOPMAT ( 1H0,3X,*R0T£R RP M*, 28X , *VELOC I TY* , 2^X ,* ADVANCE RATIO*, 10X, 

1 *PYL3N PITCH AMPLITUDE*//26X,*FT/SEC*, l IX, *KNCT S* , 13X , 

2 *KF.AS*, 1"TX » * J** l 5X* *PEGR£E S* ,10X « *RAC I ANS*// ) 

PRINT 1032, AF, VFL.VKNOTSI JJ) ,VKEAS, AR,PA,PHlYO 

1032 FORMAT! IX , El 5. 8, 5 X ,E15 . 8, 2X, El 5. 8 ,2X ,E15. 8 , 4X ,E15. 8 , 3X , E 15. 8 , 2 X , 

1 E15.R////) 

PRINT 1033 

1 033 FORMAT ( 16X,*PYL0N PITCH FREQUENCY *,28X, *RQTQR INPLANE H-FORCE*, 

1 14X,*H-F0RCE DERIVATI VES*/ ///5X ,*C YCLES/REV* , llX, *CPS*, 

2 12X,*RA0/ SEC*,16X,*REAL*, 1 IX, * I MAG I NAR Y* , ICX , *H-ALPHA* , 

3 7 X , *H-AL PHA DOT* I 

PRINT 1034 , ( ( ( T ( I « J ) , J= l , 3 ) « HZ ( I ) , (TT( I , K ) , K= l , 2) I ,I=1,NFRE0) 

1034 FORMAT<//(2X,F15.8,2X,E15. 3, 2X, E 1 5.8 , 8X , E 1 5. 3 , 2X, E 15 .8 , 2X,E 1 5 . 8, 

l 2X, E15.8 ) ) 

PRINT 1033 

1035 FORMAT ( 1H1 / 1 6X , *PYLON PITCH FREQUENCY*, 28X, *ROTOR INPLANE Y-FDRCE* 

1 , 14X* *Y-F ORCE 0ERIVATIVES*////5X,*CYCLES/REV*,11X,*CPS*, 

2 12X,*RAD/SEC*, 16 X,* REAL*, l IX, *1 MAGI N4R Y* , ICX , * Y-ALPHA* , 

3 7X , *Y— ALPHA DOT*) 

PR INT 1036, (<(T( I , J ) , J = 1, 3 ) , HY 1 1 ) , ( TUI I »K ) , K = 1,2)) ,I=l,NFKEO> 

1036 FORM AT ( / / ( 2X *E 15 • 8 , 2X ,E 15. 8 * 2X »£ l 5* 8 , 8X » £ 15 .8 » 2X * E 15 .8 * 2X,E 1 5 • 8* 

1 2X.F15.8 ) ) 

PRINT IC3 7 

1037 FORMAT ( 1HI/16X,*PYL0N PITCH FREQUENCY* ,28X , *P()TOR PITCHING MOMENT* 

1 , 1 OX, *P I TCH I NG MCMENT DER I VAT I VES*// / /5X , *C YCLES/REV* , 1 l X, 

2 *CPS*»12X,*RA0/SEC*»16X,*REAL*, 1 IX,* IMAGINARY*, 10 X, 

3 *M- AL PHA* » 7X, *M- ALPHA DOT*) 

PRINT 1034,(UT(I,J), J* 1,3), MY (I) , ( TTI I , K ) , K.= 3 ,4 ) ) , I = 1 , NFRE 0 ) 

PRINT 103« 

1038 FORMAT! IH 1/1 6X , *PYLON PITCH FREQUENCY* , 29X , *POTOR YAWING MOMENT*, 

1 1 2X , *Y AW I NG MCMENT OE R I VAT I VES* , //// 5X ,*CYC LE S/RE V*, 1 1 X , 

2 *CPS*,12X,*RAD/SEC*,17X,*REAL*, 1 IX,* IMAGINARY*, 9X, 

3 *N- ALPHA* ,7X»*N-- ALPHA DOT* ) 

PP INT 1034, HIT! I, J) , J-1,3) ,MZ(I ) , ( TUI I , K ) , K = 3 ,4 ) ) ,1=1 ,NFPEC1 
PO 22 I=l,NFREQ 
22 FREQ ( I ) =T( 1,1) 

500 CCM1NUE 
GO TO 1 

8998 PP INT fl c 9* 

END 


PROPROTOR OSCILLATORY FORCE AND MCMENT DERIVATIVES - SAMPLE INPUT LISTING 

2 1 32 

238. 298. 

330. 


0.0 

• 02 

.04 

.06 

.08 

.1 

.12 

.14 

.16 

.18 

.2 

.24 

• 28 

.3 

.4 

.6 

• 8 

1.0 

1.2 

i.4 

1.5 

1.6 

1.64 

1.7 

1.74 

1.8 

1.84 

1.9 

2.0 

2.4 

3.0 

10.0 


0.0 1.0 

1R0T0P NB=3 , 81 =791.0, BU=138. , PR EC ONE =0.0, Hi =6. 9 2 ,R=19. 25 , BCH= 1.92 , 
DEN= .00238, A0=5.73 ,DELTA3=-22.5 » HSLONG=2QOOO.O» HSL AT=2CCOO. 0, 
SWPL0NG=0.0, EPS IL0N=0 .0$ 

6PYL0N PHIY0=6.0t 
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PR0PR0T0R FLAPPING DERIVATIVES 


PROGRAM RrvrnER-M INPUT .OUTPUT , TAPE 5= INPUT) 


***■«* *** ************* ****************** ********************* ************ 


* * 

THIS PROGRAM CALCULATES THE DYNAMIC PROPROTOP FLAPPING * 

derivatives apising from sinusoidal pitching cr yawing * 

OSCILLATIONS OF THE PYLON. THE RIGID-BLADE MATHEMATICAL * 

* MODEL EMPLOYED HAS TIP-PATH-PLANE PITCH AND YAW AND * 

* PYLON DITCH AND YAW DEGREES OF FREEDOM. A CUASl-STEADY * 

* AERODYNAMIC THEORY IS EMPLOYED FOR THE DISTRIBUTED * 

* BLADE LOADING. * 

* * 


** *********** ** ************** ********** ********************************* 


COMPLEX All, M2, A21,A22,B11,B21,B12,B22,0EL,CA1Y(P0> ,DBIY(80) , 

1 DA l? (80) ,CBIZ( 30) ,DBETAY( 80 ) ,UBF T A Z < 80 ) 

DIMFNS ICN HEADH 12 ) ,KPM(20) , VKNUT S ( 20 ) ,FREG{80),T(80,3),TT(80,6), 
1 TUI 80, 6) 

NAMELIST/ROTORVNB,BI,BU,PRECONE,H1,H2,R,BCH,DEN,AC,DELTA3,HSLONG, 
1 H SL AT, SWPLCNG, SWPLAT.EPS I LON, REF 

l RE AO 1000, (HEAD1 (I) ,1=1 ,12) 

IFIEOF, S)8<?D8,8999 

8997 FORMAT ( 1H1//* PROGRAM ROTOER4 STOPPED ON (EOF, 5)*) 

89DO CONTINUE 
1000 FORMAT ( 8 A 1 0 1 

READ 1010, NRPM, NVEL,NFREQ 
1010 FORMAT (20 14) 

READ 1020, (RPM( I |,I=I, NRPM) 

READ 1020, (VKNOTST lit I=1»NV£L) 

READ 10 20 » l C R C Q ( 1 ) » 1=1 , NFREQ | 

READ 1020 ,ETA1,ETA2 
1020 FORMAT ( 8E10. A) 

READ ROTOR 
RI=(NR*BI 1/2 
P U = ( N O * BU ) / ? 

DELT A3=DEtTA3/ 57. 2S 57705 130823 
PR ECONF =PREC.OMF /57 . 2057 705 130 823 
FPS I LON=FPSI LON/ *7. 29 57 79 5 l 30 82 3 
GAMMA=( DEN*A0*BCH*(R**4) )/BI 
PB=REF*P 

DO 500 11=1, NRPM 
AF=RPM( I I ) 

RPM( II I =14.2831 8531*RPM(II))/60 
DO 500 J l=l,NVEL 
DO 490 KK=l,NFRFO 
BF=FREQ (KK ) 

FREQtKK ) = FREQCKK»*PPM( I I» 

T ( KK , 1 ) =BF 

T(KK,2 J=FPEQ IKK)/ fc. 2831 E53071 7959 

T(KK,3)=FREQ(KK J 

VEL=VKNCTS( JJ1/.5S2 

PHI = ATAN( VEL/(RPM( 1 1 )*RB) ) 

S=VEL/( PPM< II )*R) 

HSQ=S**2 

WW1=SQRT(HSQ+ETA1**2> 

WW2=SQRT( HSQ+ET A2**2 ) 


J 
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Pw=ETA*:**«ii«^-ETAi*rtrtl 

Al= ALUu 1 i t IAz*k*<; I / ( E TA1 + to* 1)1 

Aa = h*Aa’-»w1 

A3=.S*tPy-HSg*Ai J 

A4*t 1./3. )*tww***3-*Rl**3l-HSW«‘l»»A<'-Wt«i) 

A3*» <!3* I ( fcf A^**3 ) *«w2'-( fc? A1 **3 1 ♦tohl I— ( 3./8 . I *HSU*t KG— rtyiJ*All 

tii®.3*tPw+HSw*AlJ 

64- (i./3.)*T«rf^**3-«Al**3) 

US~ • 46* l E TAa1*I*w^**.j— £ TAl*hWl**3)-(l./o.J *H3w*( Pg+H3U*A 1 ) 

C.FM®. 3*0AMMA*tRPMl It )**4i*Xi 
CFMd = CFM*S*PKECui'tE 
F!>=FKEw( AK ) ** A 

Aii®CMPLA(-PS*Kl+HiLa.Ml»*EfM*fc3*TAN(UtLlA3) +CFMto* A4.dF*uFM* Ail 
Ai<*uMPLA 10pM*A3— CFMti*ti<t* TAN (UEET A3 ) tFKEut AK) *(<> .*KPK( 1 1 )*Rl- 
1 oFMo*A4/AFMUin) 

AA.i=CrtPLX (-CFM*A3+uFhti*BA*T A'M CEL I A3 J » FKEu tAM*t CFMb*A4/kPM ( I i J - 
1 <'.*KP(<UiII*tU)) 

A^*uMPL A i— F i +H >L Ar + GFM*di* T AN ( UELT A3 J ♦CFKti*A 4 » tiK *CPM*A3l 

til l®y MPL A IFi* t Ai *RO*Pi<tCCNt*Fi )-CFM*ati*V<»PLONo*i INtEPS ILGN)* 

1 CFMd*(h3w*A^-ti/*3*PLONcn.QS(fcPM LUN1 ) ,-tiP* (A3*CFM+ 

4 uFMti*i*A<:*Hl/Rl i 

til < '®vMPLA( L.FM*iH34*A3-ti3*SAPLA I*CCit EP3ILJN ) ItCF MJ*ti<* >*«PL AT * 

1 VlMEPilLUNl ,BF*(uFMe*A4-A.*RI*KPN( 1 1 I ** <d-EFK* 3*A 3 *H 4 /K J 1 

BA 1 “UNFIX t uF M* l ti j*bwPCulW*CDS ( tPSILCN)— HS J* A3 ) -CPNtt*E4*!>lKpL JNti* 

1 SlNltP iiLUN), BF*t c.*Kl*RPMU 1 ) **4*CFM* :>*A3*H l/K- 

4 cFMu*A4 1 ) 

ti24*CMPLX t F S* ( K I ■*•»< J*PRECCNfc*F<i l-CFrt*ti3*SWPL AT+3I M EP S I LuN) + 

1 uPrtti*(Ftjj*A4-y«*PLAl*J4*C0:>ttP!>lLJN) 1 « 

4 — tip* ICFM* A3«-liFMti*3*/!4*Ft4/i<) ) 

DEL=AaI*xaa-A1a*ma i 
uAiYtRKl ={ o 11 *aaa-A 1 4*ti4 1 )/uEL 
LdlYt XK» = t Aii*ti4l-tij.i*AAii/DEL 
DA l A ( AK l = t ti 1 4* l\44- A 1 4*1)44 J / DEL 
Dti 1 A ( XK 1 “(Ail *tiA4— b i 4* A 4 1 ) / uEE 
49u CuimUNUE 

DU 33 lJ=l,NF*Eg 

ri ( 1 J y 1 i =Kt A l ( uA 1 Y ( i J t ) 

TT ( l J •4)«AlMAt>lbAlY( 1J J l/FKECl I JJ 

TT ( l J ,3) =KEAL(DtilY ( t J1 1 

TT U J ,4) “A iMAutUblYt I J) l/FKLU l J J 

r r t 1 j » t> ) - 3 wk t ( 1 1 u j , i ) * * c » t t t i j , 3 ) * * a ) 

f T l i J to) = 3uk T l T T ( 1 J *4 )**<: *T T U J * 4 J **4) 

Tot I J f 1 ) “REAL l UAi A ( IJi l 

Tut i 3 > A ) “AT MAot uAEZ 1 1 J J J/FkEuU J) 

TU( { J t 31 “REAL (Util a ( I J J I 

IU( 1 3 1 4 j “ A IN Au ( COx A ( 1 j) )/FK tW( 13) 

TU t 1 3 « 3 ) =3wK I t TU t 1 3* l)**4*U (13,31**4) 

T J ( l J i o ) = SvJK t (Tut l3»A)**A+To(l3»4)**4) 

33 CUN J 1 nUE 

VAtAS = VK<'lUl S( 33 )*s„Kl ( JcN/.OCzjo) 

Art“3 * 141 394t>3jati9 79*VEl./ t RPMt 1 i » -* K 1 
PHl*PHi*j T.a^. 37 793 13.Cti.23 
PRINT iu3J»HEAul 
LUJo FukMA T ( 1H 1/ / 1 aA 10/ / / / 1 
KkInI AU 4-i 

1049 FuMAf (1fiu»3A»*KuTuK RPP * , 4 a A* * V EL JO 1 1 V* ,4 7 A . *AD VANu t KAT1U* ( 

1 BA t * A UUK NuMBcK* f 9 A t * iNPLU w ANuLt *// AoA , *F T/ 3cu* » 1 AX »* KNUT j* , 

4 1jA| *K.bA>* t 17 a»® J* • J9At *PHI *// ) 

PRliVl 10AO t AF * VtL» bA.NCT it J J J tVKcAi t AK, uAHMAt PHI 





612 


1028 FCPMAT! 1X,FL5.8,6X,E15.8,2X,E15.8,2X,E15.8,5X,E15.8,5X,E15.R, 
15X,E15.8////! 

IFIHSLONG.NE.HSLAT! GO TO 123 

BFF=SQRT! I.+HSLCNG/IR I*RPM! I I I **2 ) ♦ . 50*GAMM A*B3*TAN< CELT A3) ) 

RCP=25*GAMMA*A5/BFF 

PRINT 1 01-*> , BFF t BCR 

1016 FORMAT! ix, 43H**** BLADE FLAPPING FREQUENCY < CYCLES/PE V I =,F10.3, 

1 20X.38H**** BLADE DAMP ING I PERCENT CRITICAL! =,F10.3////) 

123 CONTINUE 

PRINT 1031 

1031 F0RMAT131X.73H******* PPOPROTOR DYNAMIC FLAPPING CERIVATIVES DUE T 
10 PYLON PITCH *******///) 

PRINT 1032 

1032 FORMAT! 9X»*PYL0N PITCH FREQUENCY* , 24X , *CCMPONENT FLAPPING DERIVATI 
lVES*,16X,*TOTAL FLAPPING DER I VAT I VE*//2X,*CYCLES/PE V*, 7X,*CPS*, 

2 8X,*RAD/SEC*,8X,*AI/PHIY*,4X,*A1/PHIY COT* ,4X , *B1/PH I Y *, 

3 4X,*B1/PHIY DOT*, 8X, *BE TA/PHI Y* , 3X , *BE T A/PHI Y DOT*! 

PRINT 1033,! !(T! I, J) , J=1,3I, ITT! I ,K> ,K=1,6! ! , I=1,NFREQ» 

1033 FORMAT!//! IX , F 1 1 .4 , 2X , E 11. 4, 2X ,c l t .4 , 5X ,EH.4 , 2X , El 1 .4 ,2X,E1 1 .4 , 

1 2X,Ell.4,TX,E11.4,2X,E11.4!l 

PRINT 1034 

1034 FORMAT (////32X, 71 H* ****** PROPRJTOR DYNAMIC FLAPPING DERIVATIVES D 
1UE TO PYLON YAW *******///) 

PRINT 1038 

1038 FORMAT! 10X,*PYL0N YAW FREQUENCY* ,25X,*C0MP0NENT FLAPPING OEPIVATIV 

1 p S * » 16X,*T OT AL FLAPPING DERIVATIVE* //2X , *C YCLE S/PF V* , 7X , *C P S* , 

2 8X,*RAn/SEC*,eX,*Al/PHIZ*,4X,*Ai/PHIZ COT*, 4X,*Rl /PHIZ*, 

3 AX,*B1/PHIZ DOT*, 8X,*8ETA/PHIZ*,3X,*RETA/PHIZ DC T* ) 

PRINT 1036, <<!T( I, J1 , J=l, 3), !TU( I ,K> ,K=l,6! I , I = I ,MFREQ ) 

103F FORMAT! //( IX, FI 1.4, 2X,E 11,4, 2X,E 11.4, 5X, El 1.4, 2X, El 1.4, 2X, Ell. 4, 

1 2 X , E 1 1 . 4 , 7 X , E 1 1 . 4 , 2 X , E 1 1 • 4 ) } 

00 22 I =1 , NF RE 0 
22 FREQ! I !=T( 1,1! 

500 CONTINUE 
GO TO 1 

8998 PRINT 8Q9"' 

FND 


PR0PROT0R OSCILLATORY FLAPPING DERIVATIVES - SAMPLE INPUT LISTING 
2 1 20 


238. 

298 . 







3^0 • 
.0001 

• 05 

.10 

.2 

.4 

.6 

.8 

1.0 

1.2 

1.4 

1.6 

L . 3 

2.0 

2.2 

2.4 

2.6 

2.P 

3.0 

5.0 

10.0 





0.0 

1.0 








iROTOR NB=3 , RI =79 1 . 0* BU= 138 • *PB 6CONE=0. 0* Hl=6 .92 » H2 = 6.92 , R= 19 .25 , 
BCM=l.92,DEN=. 00238, A0=5. 73, DELTA 3=-22. 5, HSLONG=20000. 0 , H SLAT =20000.0, 
SWPL3NG=0.0, SWPLAT=0.0,EPSIL0N*0.0,REF=.75$ 


A 
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VIBRATION ANALYSIS BY A DIRECT STIFFNESS METHOD 


FFOGRAM OST IFF I INPUT, OUTPUT ,T AP£5» INPUT, TAPE6, TAP E8, 
1 TAPE 3 , TAPE4, TA PE 30 , TAPE 31 ) 


44 4 4 4 4 **4^4*44* 44<* 4c*** ********* **4t* ****$*************** *** 4 ^* *** ******** 


4 * 

* PROGRAMS CSTIFF AND BJD5 COMPRISE A COMPUTER PACKAGE * 

* FOR THE VIBRATION ANALYSIS OF COMPLEX STRUCTURAL * 

4 SYSTEMS BY A OIRECT STIFFNESS TECHNIQUE. * 

* * 

* THE STRUCTURE IS IDEALIZED AS AN ASSEMBLY OF BEAM, * 

* SPRING, AND RIGID MASS SUBSYSTEMS. A F INITE-ELEMENT * 

* APPROACH IS EMPL3YED TO GENERATE THE MASS AND STIFFNESS 4 

* MATRICES FOR THE UNCOUPLED SUBSYSTEMS. USER WRITTEN * 

4 CONSTRAINT EQUATIONS ENFORCING INTER-SUBSYSTEM DISPLACEMENT * 

4 COMPATIBILITY ARE APPLIED ACCORDING TO THE ME THCD OF 4 

4 NASA TR R-326. A CONDENSATION OF THE SYSTEM GENERALIZED 4 

4 STIFFNESS MATRIX IS PERFORMED, IF NECE SSARY , AND THE 4 

4 RESULTANT EQUATIONS CAST INTO A FORM TO WHICH THE 4 

4 THRESHOLD VARIATION OF THE JACOBI ALGORITHM FCR FINDING 4 

4 EIGENVALUES AND EIGENVECTORS IS APPLIED. 4 

4 * 


************************************************************************ 


KASE* 1, DIAGONAL MASS ONLY (NO NULL VALUES) 

KASB=2, DIAGONAL MASS AND ROTARY INERTIA INC NULL VALUES) 
KASE* 3, NON-DIAGONAL MASS AND ROTARY INERTIA (NULL VALUES 
CAN BE ON DIAGONAL) 

KASE=4, DIAGONAL TORSIONAL INERTIA OR AXIAL MASS INC NULL 
VALUES ON DIAGONAL) 

KASE-5, DIAGONAL TORSIONAL INERTIA OR AXIAL MASS INULL 
VALUES CAN BE ON DIAGONAL) 

KK= ORDER OF BLOCK 


LOC-1, BEAM BENDING 
L0C*2 , BEAM TORSION 
LOG* 3, BEAM AXIAL 

L0C*4, SPRING OR RIGID BODY ELEMENT 

FOR SPRING OR RIGID BODY ELEMENTS — 

MK*1 f READ STIFFNESS MATRIX FROM CAROS 
MK*0.t NO READ 


C 

c 


M M a 1 1 READ MASS MATRIX FROM CARDS 
MM«o, NO READ 


A 



o o o o c'i ' 


r FOR A SY MMFT p I r QP ANT I -SYMMETR |C FORMULATION OF THE 

r PROBLFM, T HF MASR ftN C S T I FFNES S MATPICCS C OPR C S ROND I NG 

r TO STRUCTURAL BLOCKS OUT of THE VERTICAL PLANE of symmetry 

L MUST rf MULTIPLIED by 2.0 

" ISYM=1, MULTIPLY BLOCK MASS AND STIFFNESS MATRIX BY 2.0 

C ISYM=0, NO MULTIPLICATION 


r 

r 

c 

r 

C 

r 

C 

r 


MASS AND/OR STIFFNESS TERMS ARISING FROM WING AND TAIL STATIC 
UNBALANCE ANO FROM ASSIMILATING THE MASS MATRIX OF A RIGID 
BODY OR TFE STIFFNESS MATRIX OF A MASSLESS SPRING ELEMENT 
INTO t H f CORRESPONDING MATRICES OF THE MEMBER (SI TO WHICH 
THEY ARE C0NN c Ct E 0 WILL COUPLE BLOCKS IN T HE UNCOUPLED 
SYSTEM MASS ANO STIFFNESS MATRICES. THESE TERMS ARE 
INTRODUCED SEPARATELY. 

MAS ADD = NUMBER OF MASS TERMS TO BE ADDED ON AND ABOVE 
DIAGONAL OF THE UNCOUPLED SYSTEM MASS MATRIX. 
PROGRAM WILL PROVIDE SYMMETRY AS RFQUIRED. 

NSP ADD = NUMBER OF SPRING TERMS TO BE ADDED ON ANO ABOVE 
DIAGONAL OF THE UNCOUPLED SYSTEM STIFFNESS 
MATRIX. PROGRAM WILL PROVIDE SYMMETRY. 


DIMENSION A (12 ,121 ,B( 12 , 12 ) , C ( 1 2, 12 > ,DM( 1 2 ) ,R I ( 12 1 , XI 8 1 , SI 8) , 

1 E ( 16 I , ES ( 8 1 , EC (8 I . IR ( 16, 2 » , A A ( 16, 16 1 , BBl 16, 16) , 

2 BK ( 144, 144 ) ♦ BM ( 144, 144 I ,0( 49 , 144 1 , DTD ( 144 , 144 1 , 

3 E I GV{ 144 1 , BC ( 144, 144 1 , RET A ( 1 44, 144) , R ( 144) 

COMMON HM T X(12) 

FQU I VALENCE ( BM ( 1 , 1 ) , OT 0 ( 1 , 1 ) , B ETA ( 1 , 1 ) ),< 8K( 1 , 1 ) ,8C ( 1 , 1 ) ) , 
l ( D ( 1 , 1 ) , E I G V ( l ) ) 

MAX= 12 
MAX T 2=16 
MAX 2 = 2 
FCUN= 1.0 

1 READ 1010, (HM T X( J) , J=5, 12) 

1010 FQPMATC8A10) 

I F ( E OF , 5 ) 8998,8999 
3993 WRI TE(6, 999*’ ) 

PRINT 3997 
GO T 0 2300 

9997 FORMAT! 1H1//* PROGRAM 3B$T IFF STOPPED ON (EOF, 5)*) 

3999 CONTINUE 

C READ NUMBER Of BLOCKS IN UNCOUPLED SYSTEM MASS AND STIFFNESS 
C M A T R I C FS , ORDER OF SYSTEM, ANO NUMBER OF CONSTRAINT EQUATIONS 
RRAD 1020,N8L KS, NOROFP , NCEQS 
WRI T E( 6 , 101 1 ) NBLKS.NOROER, NCEQS 
PRINT 1011, NBLKS, NOPOFR, NCEQS 

1011 FOR MAT (1 HI/./* NUMBER BLOCKS IN UNCOUPLED SYSTEM MASS AND STIFFNESS 

1 MATRICES = *,13//* OPQFR OF SYSTEM = *,13//* NUM3ER OF CONSTRAINT 

2 EQUATIONS = *,131 

C READ NUMBFR OF MASSES TO 9F ADDED ON OR ABOVE DIAGONAL OF 
C MASS MATRIX AND/OR NUMBER OF SPRING CONSTANTS TO BE AODEO ON 
C OR ABOVE DIAGONAL OF STIFFNESS MATRIX 
RF AD 1020,MASADD,NSPADD 
WRI T E (6 , 101 2 I MASADO, NSPADO 
PRINT 1012, MASADO, NSPAOO 

IQ 1 2 FORM A T ( 1 H //* NUMRER OF MASSES TO BE ADDED = *,I3 ///* NUMBER OF SP 
1RING C0NS T ANTS TO BE ADDED = *, 13) 
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CALL ZFRQM! BK ,NCROER,NCROFR ,NOROER , NOROER ) 

CALL ZFRCM! PM, NOROFR, NOP CFO , NOROER, NQROER ) 

NC8 = 1 t NRR = l 
NCF=0 * NRF=0 
10=0 % MI =0 $ KI =0 
DO 200 NBL0CK=1,NBLKS 
WRITE(6,1019> NRLOCK 
PRINT 10 19, NBLOCK 

1019 FORMAT! 1H / / IX, 19H*******************/ IX, 19H* */ 

1 1X,19H* BLOCK NUMBER ,I3,2H */iX,19H* */ 

2 1X» 19H*******************) 

READ 1020,KK,LOC,MK,MM, ISYM 

1020 FORMAT! 2019) 

10=1 D+l 

IF! ID.EO.l) GO TO 1021 
MI = K I 

1021 CONTINUE 
NRF=NRF+KK 
NCF=NCF+KK 

GO TO 1110, 120,120, 130), LOC 

*4 t* ****** ******* 

* BEAM BENDING * 

**************** 

FOR BEAM BENDING, FREE-FREE STIFFNESS MATRIX IS 
GENERATED IN THE PARTITIONED FORM IA B) 

(BT C) 

WHERE A=(K*K), R=(K*N), BT*(N*K>, C=IN*N) 

FOR THE FPEE-FREE CASE, K=N 

110 READ 1020, K ,N,KASE 

WRITE!6, 1030) K, N,K ASE 
PRINT 1030,K,N,KASE 
1030 FORMAT ( / /9X, *K*,9X» *N*» 8X» *KASE*//3I 10 ) 

1090 FOPMAT15E19.8) 

KM1 =K-1 

CALL ZEROM! A,K,K,MAX, MAX ) 

CALL ZFROM! B,K,N,MAX,MAX) 

CALL ZEROM! C ,N,N,M AX, MAX ) 

CALL ZEPOM!OM,K,1,MAX,1) 

CALL ZER0M!RI,N,1,MAX,1) 

PEAD 1090, (XII), 1=1 ,K ) 

REAO 1090, (S(I), 1=1, KM1) 

READ 1090, (CM! I) ,I=l,K ) 

IFIKASE.NE.i ) READ 1090, ( R I ( II , 1 = 1 ,N) 

PRINT 1050, ( J,X( J),S( J) ,DM( J),RI< J), J=l,KMl) 

WRITE (6, 1050)! J,X( J),S( J),DM! J) ,Rl( J>, J = 1,KM1) 

PRINT 1051,K,X(K),0M!K),PI(K) 

WRI TE ( 6 , 1051 ) K, X( K I ,DM( K 1 , RI (K) 

1050 FORMAT! ///3X,*-J*, 7 X»*X( J)*,11X,*EI( J)*, 10X,*MASS! J I*, 10X,*RI ( J)*, 

1 / / ( I 9, 9E1 6. 8 ) ) 

1051 F0RMA T (T9»E16.8»16X»2E16.8) 

DO 90 L= 1, KM 1 

90 F!L)=i.O/(X(L+l)-XIL) ) 
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Of) A l t * 1 , K M 1 

a i Fsu)=rui*nu 
on A? I = l.KMl 
A? ECU » - F ( Ll*ESU I 
C FORM MATRIX A 

Ad, 11 = 12 . o*siii*ecu» 

A(l,2l»-All,l ) 

A(K,KM1I s-1 2 • 0#$ (KM 1 ) *EC I KMl I 
A(K,KI*— A(K*KMl) 

M=0 

00 50 1*2, KMl 
M=M + 1 

AIL »M)=— 12.0*SIMI*EC(Ml 
All ,M+2I=-12.0*S(M«-ll*EC(M+ll 
50 Al L , M+l I =-l A (L »M A I L , M*2l ) 

C FORM MATRIX 9 

9Il,l)*6.0*S(l)*FSm 
B 1 1 , 2 I * B 1 1 » 1 1 

BCK.KMl I =-6.0*SIKMl I*FS(KM1 I 
RIK,KI*8|K,KM1) 

M=0 

00 61 L*2,KM1 
M=M + 1 

B(L,M)=-6.0*S(M>*ES(M> 

Bll ,M+2 l=6.0*SIM+ll*FSIMH> 

61 Bl L , M+l I *81 L » Ml *P( L » M*2 I 
C FORM MATRIX r 

C(l,l l*A .0*S( l l*Ft 1 1 
Cl 1 » 2 1 =2 • 0* S 1 1 1 * £ ( II 
C IK* KMl 1 =2 . 0*S (KMl I *EI KM 1 I 
Cl K,K )=A.0*S(KM1 l*F ( KMl I 
M=0 

DO 71 L* 2 , KM 1 
M*M+ 1 

C(L ,M)*2 .0*S I M I *E( M I 
C (L,M+2)*2.0*S(M+1>*EIM+1J 
T 1 Cl L , M+l » =4.0*(S(Md)*EIMd)+S(MI*E|M>) 

C FORM FREE-FREE BENDING STIFFNESS AND MASS MATRICES 
KPN=K*N 
KP1 =K+1 

CAtL ZEPOMI AA , KPN, KPN, MAXT2 »MAXT2 ) 

CALL ZEPOMI B8,KPN,KPN,MAX t 2,MAXT2) 

REWIND 3 

WRITE! 3 I (I A I I , Jl , J = 1 , K » ,I=1,K) * I (B( l » J I * J* 1 , N) , I* 1,K I , ( ( B( I , Jl , 

1 t=l,K|,J*l , N I » 1 1 C 1 1 , J I , j* l » N I » I “ 1 * N I » I DM! J) , J=1,K» , 

2 (RI ( Jl , J*1,NI 
PEWIND 3 

READ 13 1 I ( A A 1 1 , J I , J* 1 , K I , I *1 , K 1 , 1 1 AAI I, J I , J*KPl , KPN I , I * l , K I , 

1 II AAI I , J) , J* 1 » K I * I =KP l , KPN I , I I A A 1 1 , Jl * J*KP1 ,KPN I , I *KPi ,KPNI • 

2 (PBI J, Jl, J=1,KPN> 

r MULTIPLY FREE-FREE STIFFNESS MATRIX BY 2.0 IF ISYM = 1 
IF! ISYM.EO.OI GO to 1068 
DO 1065 I * 1 ♦ KP N 
DO 1065 J*1,KPN 
1065 AAI I, JI*2.0*AA( I, J) 

1068 CONTINUE 
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C MULTIPLY FRFF-FPFf MASS MATRIX BY ?.0 IF ISYM a 1 
IF f ISYM.FQ.OI GO T 0 95 
DO 96 l * t <» K PN 
DO 96 l » KF N 
96 BBC It J)*2.0*RRI It J) 

95 CONTINUE 

DO 11 I*NR8,NRF 
DO 11 J S NCB t NCF 
BK( I , JI*AAC I-MIt J-MI) 

11 BMC It J )= BBC I -Ml f J— MI ) 

K I * K 1 4-K K 
NRB = NPR-*-KK 
NCB=NCB+KK 
GO TO 200 

* ****) ******************** 

* BEAM TORSION OR AXIAL * 

**** ********************* 

C FREE-FREE STIFFNESS MATRIX IS OF ORDER K 

120 READ 102 OtX f KASE 
WRITEC6t 1090)KtKASE 
PRINT 1090 tK, KASE 

1090 FORMAT! ///9Xt*K*t8Xt*KASE*//2IlOI 
KMl =K— 1 

CALL ZEROM( A,K,K, MAX, MAX* 

CALL ZEROM( B,K,K,MAX,MAX) 

READ 1040, ( X ( I ) , 1=1 ,K) 

REAO 1040, I Sdl. 1=1, KMl) 

READ 1040, (RIU), 1*1, K) 

IF(LOC.E0.2) GO TO 1098 

WRITE (6, 11021 ( J,X( JI,SU),R!( J1 , J*1,KM1) 

WPITE(6,1101) K,X(Kt,PI(K) 

PRINT 1102, ( J,X( J), S( J » , R I ( Jl , J*1,KM1) 

PRINT 1 1 01 , K , X( K ) • R I ( K ) 

GO TO 1099 

1098 WRITE (6, 1100 H J, X< J),S( J),RI( J), J=1,KM1) 

WRITE16, 1101) K , X( K ) » P I ( K ) 

PRINT 1100, ( J, XI J ) , S ( J) , P I ( J) , J=l, KMl) 

PRINT 1101, K,X(K),RI ( K ) 

1100 F0RMAT(///3X»*J**7X,*X( J) *, MX, *G J ( J I* , 10X, *P I ( J ) * , //( I 4, 3E1 6. 81 I 

1101 FORMAT (I4,E16.8,16X,E16.8) 

1102 FOR MAT ( / //3X ,* )* ,7 X, *XC J)*,11X,*AE( J)*,10X,*0M( J ) *, // C 1 4, 3E16. 8 ) ) 
C FORM FREE-FREE STIFFNESS MATRIX 

1099 DO 121 L =1 » KMl 

121 ELL l=l.O/(X(L*l)-X(L)) 

DO 122 J=l, KMl 

122 S( J ) = S( J )*E ( J ) 

A ( 1 , 1 ) * S ( 1 1 

A( 1,2 )*-$( 1 ) 

A( K, K— 1 ) =~S (KM 1 ) 

A(K,K)=S( KMl ) 

KT0 = O 

DO 123 J =2 , KMl 
KD=KTB*J 

A(K0,K0-1)*-S( J— 1 » 

ACKD,KD)=S( J-1)+SC J) 

123 A(KD,KD+1)=-S( J) 


A 
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r HUtTIPtY FREE-FREE STIFFNESS MATRIX BY 2.0 IF ISYM = l 
I F ( ISYM.FO.O) GU TQ 1 28 
DO 129 I =1 f K 
DO 129 J = 1 , K 
12Q A!I, J)*2.0*A!I,JI 
128 CONTINUE 

DO 13 J=1,K 
13 BC J , j| -R It J.l 

C MULTIPLY FREE-FREE MASS MATRIX BY 2.0 IF ISYM = l 
IF ( ISYM.EO.O) GO TO 1261 
DO 1262 I = 1 » K 
00 1 262 J=1,K 

1262 B{It J1=2.0*B<T, Jl 
1261 CONTINUE 

DO 1269 I=NR8,NRF 
DO 1263 ) = NC 8 , NCF 
BKf I, J)*A(I-MI, J-MI1 

1263 BM( I, J)=B!I-MI f J-MII 
K I ~K I +KK 
NRB=NRB+KK 
NCB=NCB+KK 

GO TO 200 

***************** *************** 

* SPRING OR RIGID SOCY ELEMENT * 

************** ****************** 

130 CALL ZEROM! A, KK , KK , MAX, MAX I 
CALL ZERCM48,KK,KK f MAX, MAX) 

IF!MK.EQ.O) GO TO 1M 
PRINT 1301 

WRITE(6» 1301 ) 

1301 FOPMAT(ih //IX,* SPRING ELEMENT - STIFFNESS MATRIX WILL BE READ 
1FR0M CAPOS. MASS MATRIX IS NULL.*) 

READ 1040, ( ( M I * J I » J = 1 »K K ) » I « 1 » K K ) 

131 IF(MM.EQ.O) GO T 0 132 
PRINT 1302 

WR I T E ( 6 , 1302 ) 

1302 FORMAT! 1H //IX,* RIGID BODY ELEMENT - MASS MATRIX WILL BE READ F 
l ROM CAROS. STIFFNESS MATRIX IS NULL.*) 

READ 1040, < IBM, J) « J*1 «KK) «.I *1 V -KK) 

132 CONTINUE 

C MULTIPLY FREE-FREE MASS AND STIFFNESS MATRICES BY 2.0 IF ISYM * l 
IF! ISYM.EQ.O) GO TO 135 
00 134 I~l,KK 
DO 134 )=1,KK 
A< I , J ) = 2 .0*A ! I , J ) 

134 BU , J)=2.0*B<I ,J) 

135 CONTINUE 

DO 138 I =NRB , NRF 
DO 138 J =NC 8 , NCF 
BKC I, J)=A< I-MI, J-Mt ) 

138 BM( I , J )=B( I -MI , J-MI ) 

IF(MK.NE.O.OR.MM.NE.O) GO TO 133 
PRINT 1303 
WR IT E ( 6, 1303) 

1303 FORMAT! 1H //IX,* MASS AND STIFFNESS MATRICES ARE BOTH NULL *1 

133 CONTINUE 
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K I = K t+KK 
NP B = NR (J> KK 
NCB=NCR-*-KK 
200 CONTINUE 

NOT F — FOR SYMMETRIC OR ANT I- SYMMET P I C FORMULATION THE MASSES 
ANO/OR SPRINGS to BE ADDED MUST BE MULTIPLIED BY 2.0 
IF(MASADO.EQ.O) GO T 0 20 

READ 106 Ot I IP I J, II , IR I J, 21, El JI , J=1,MA SADDI 

1060 FOR MAT( 4 ( 2 1 3 » E14.8 ) ) 

WRI T E(6»1061MJt IR(J»lltTR( J»2) *E(J> ,J«1,MASAD0) 

PP I NT 1 061 , I J , I R I J , 1 » , I P l J , 2 > » E I J I , J= 1 , MAS A DO ) 

1061 FORMAT! f /AX , * J*. 2X , *ROW* , 2X ,*COL*, 8X, *MASS ( J ) *// 1 31 5, E22. IV) ) 

DO 20 J = 1 * MAS ADD 

NROW=I R ( J , 1 1 
NCOL *IR ! J, 2 ) 

BM( NROW * NCOL I =BM !NR OW , NCOL ) +E I J ) 

IFI NR ON. NE. NCOL) BM! NCOL , NROW )= BM I NROW » NCOL ) 

20 CONTINUE 

IFCNSPADD.EO.O) GO to 90 

READ 106 0, < IR! J, 1) , IP < J,2),E! J) , J=1,NSPADD) 

WRITE16, 1062) (J, IP { J,l) , IR ( J, 2 ) , E( J ) , J =1 , NSP ADD ) 

PRINT 1062, ( J, IR ( J , 1 ) , IP ( J, 2) ,6 ( J), J = 1 , NSPADD ) 

1062 FORMAT ( t /AX »* J*» 2X, *ROW* ,2X» *C0L*,7X»* SPRING! J )■*// 1 315, E22 . 1 V) ) 
DO 90 J=l, NSPADD 

NPOW=IR! J, 1 > 

NCOL=I R I J, 2 ) 

BK ! NROW , NCOL ) =BK INROW , NCOL I +E I J ) 

IF! NROW. NE. NCOL) BK I NCOL , NROW )= BK! NROW , NCOL ) 

90 CONTINUE 

C WRITE SYSTEM FREE-FRPF STIFFNESS AND MASS MATRICES ON TAPE 6 
HMT X ! 1 ) = 10H FREE-FP FE t HMTX!2)=10H SYSTEM ST 
HMT X( , ) = 10HIFFNESS MA t HMT X ! 6 ) = 1 OHTR I X 
CALL WMTXC!8K,N0RDER*N0RDER, NOR DEP , NORDER ) 

HMT X 1 1 ) = 10H FREE-FREE * HMTX(2)=10H SYSTEM MA 

HMTX 13 ) = 10H SS MATRIX * HMTX(4)=10H 

CALL WMTXCI BM, NORDER, NORDER, NORDER, NORDER) 

C WRITE MASS MATRIX ON TAPE 30 BY ROWS, ONE RECORD 
REWIND 30 

WRITE 130)1 ( BM! I, J),J=1,N0PDEP), 1 = 1, NORDER) 

C WRITE STIFFNESS MATRIX ON TAPE 31 BY ROWS, ONE RECORD 
RFWIND 31 

WRITE 131 )! ! BKU, J), J=l, NORDER), 1 = 1, NORDER) 

CALL r ON EQSlOfNCEOS, NORDER) 

C EVALUATE 0 TRANSPOSE * D BY CALLING ROWS OF D AS COLUMNS OF DT 
DO 300 J=l, NORDER 
DO 300 1=1, NORDER 
DTD! I, J)=0.0 
DO 300 I J=1 »NCEQS 

300 DTD! I,J)=DTDI I * J )+D ! IJ, I ) *D l I J, J) 

C SOLVE FOR EIGENVALUES AND EIGENVECTORS OF DTD 

CALL J ACTV! NO ROER* NORDER » 1 , DTO, E IGV,BC »DUMl ,DUM2 ,DUM3 , DUMA ,NERR ) 
IFINEPR.EO.l) GO ’0 2200 


C TEST FOR NUMBER OF FI NIT E! POS IT IVE ) EIGENVALUES OF DTD. MODAL 
C COLUMNS OF DTO CORRESPONDING TO THE ZERO EIGENVALUES ARE THEN TAKEN 
C TO BF THE COLUMNS OF THE BETA MATRIX 
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NFEV=NORDEP 

00 75 J=2,N0RDER 

1 J* J— 1 

IFIFIGV! JI.LE.0.0) GO TO 76 

IF( ( EIGV! I J l/EICV! J )) .OF. 1000000. 0) G3 TO 76 

75 CONTINUE 

76 IFINFEV.NE.I J) NFEV=IJ 
PRINT 14,NFEV 

14 FOP MAT ( / 7# NUMPFR OF FINITE EIGENVALUES OF DTD = *, I3//I 
C WRITE EIGENVALUES OF 0 TRANSPOSE * 0 ON TAPE 6 
WRIT El 6, mi MEIGVI I ) , I = 1 ,NORDER ) 

1111 FORMAT!//* EIGENVALUES OF DTR * //( 2X, E 15. 8 II 
WR I TE ( 6 « 14 ) NFFV 
NCBETA =NGRDER-NFEV 
DO 80 1= It NOPDER 
OO 80 J=1,NCBET A 
30 BE T A( 1 1 J l*BC ( I tNFEV* II 
NRBET A=NCRDER 

C BETA WRITTEN ON TAPE 3 FOR USE IN B JD5 
C WRITE ORDER BETA CN TAPE 3, ONE RECORD 
C WRITE BETA CN T APE 3 BY ROWS. NRBETA RECORDS 
REWIND 3 

WRITE(3INRBE T A,NCBETA 
DO 66 1=1, NRBETA 

66 WR I TE (3 ) (BETA! I, J) ,J = 1, NCBETA) 

C WRITE BETA CN TAPE 3 BY COLUMNS, NCBETA RECORDS 
REWIND 8 

DO 351 J =1 , NC8E T A 

351 WRITE (81 (BETA! I, J) , I=1,NR3ETA) 

FORM COUPLED MASS MATRIX BY THE MATRIX PRODUCT 
BETA TRANSPOSE * BM * BETA 

C R FAD MASS MATRIX FROM TAPE 30 
PEWIND 30 

READ ( 30 1 ((BM( I, J), J=1 ,N0RDFP1 ,I = 1,N0RDER) 

PEWIND 8 

C POST-MULTT PLY MASS MATRIX EY BETA 
DO 114 J = 1 , NC BE T A 
C READ CCLUMN OF BETA 

PEACM 8 ) ( R ( I ), 1*1, NRBETA) 

DO 114 1=1, NRBETA 
BC1 I , J)=0.0 
DO 114 IJ=1, NRBETA 

114 BC! I , J) = BC ( I , J)*BM( I, I J )*P( I J) 

REWIND 8 

C PRE-MULTI°L Y MATRIX JUST COMPUTED BY BETA TRANSPOSE 
DO 115 1=1 , NCBETA 

r READ COLUMN OF BETA AS ROW OF TRANSPOSE 
REAO! 8) I R I JT » J=l» NR BETA I 
DO 115 J = l, NCBFT A 
BM( I , JI=0.0 
00 115 I J=l, NRBETA 

115 BM! I, J)=BM( I , J )+R( I J )*BC! I J, J) 

C WRITE COUPLED MASS MATRIX ON TAPE 4 BY COLUMNS, ONE RECORD 
REWIND 4 

WRITE (4) ( ( BM( 1 , J) ,1 = 1, NCBETA), J = l, NCBETA) 


J 
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C FORM C OU PL F 0 S T IFFNFSS MATRIX eY THF MATRIX PRODUCT 
r RFT A TRANSPOSE * BK * BFTA 

C READ STIFFNESS MATRIX FROM TAPE 31 
REMIND 3 l 

READ! 311 (IBM I,J), J= 1» NORDEPI • I =l»NORDER I 
REWIND 8 

C POST-MULTI PLY STIFFNESS MATRIX BY BETA 
DO 352 J“l, NCBETA 
C READ COLUMN OF BETA 

READ (8) I Rl I ) » I“1 tNRRETA ) 

00 352 I “It NRBET A 
BET A 1 1 , J )“0.0 
DO 352 I J=1 1 NRBETA 

352 BETAII.J )“BETA!I,J)+8K!I,IJ)*R| IJJ 
REWIND 8 

C PRE-MUITIPLY MATRIX JUST COMPUTEO BY BETA TRANSPOSE 
DO 113 I “It NCBETA 

C READ COLUMN OF BETA AS ROW OF TRANSPOSE 
READI8MRIJ), J*1,NRBETA) 

00 113 J«l, NCBETA 
BKII ,J)=0.0 

DO 113 I J= 1 , NRBFTA 

113 BKI I, J)=8K! I,J)+RII J>*8ETAiIJ,J) 

C WRITE COUPLED STIFFNESS MATRIX ON TAPE A BY COLOMNSt ONE RECORD 
WRITEIA) It BKI It J) t I=1,NCBETA), J=l, NCBETA) 

REWIND 3 
REWIND A 

IF1NERR.EQ.0 ) GO T 0 2300 
2200 WRITE(6t22lO) 

PRINT 2210 

2210 FORMAT!//* ERROR RETUPN FROM JACTV - DTD CALL *) 

2300 CONTINUE 
END 

SUBPOUT I NE CONEQS! D ,NCEQS t NORDE R ) 

C MATRIX OF CONSTRAINT EQUATIONS IN PHYSICAL COORDINATES 
DIMENSION D I NCEQS, NOROER ) 

CALL ZEROM ( 0, NCEQS t NOROER , NCEQS t NORDER ) 

D( 1 » 2 A) »— 1 • 0 $ D( 1 , 1 1 ) “COS ( . 1658 ) $ DI 1 , 5 ) =-S I N I . 1658 ) 
DI2tl2)=-1.0 t D!2,11)“SINI .1658) * DI 2 t 5 ) =COS! . 1658) 

D(3,18) = 1.0 i D( 3 , 101 1.0 * D( A, 2A )=— l .0 i 0 < A,A1 ) “COS I .0977A ) 
0 ( A , 25)“ -SI N( «0 °Tta ) * OI5,17)=-l.O $ D(5,A1 ) “SIN! .0977 A) 

D! 5 ,25) “COS ! .0977A ) * 0(6,23)=1.0 t D!6,33)=-1.0 

01 7 , 2A)= 1 .0 * D(T,A2)=1.0 $ D(7,AA)=A6.1 * DI 8 ,A5> “-A6. 1 

DI 9 , 17)“1 .0 $ D|9 ,A3 )=— 1.0 $ D! 10, A5 ) =-l . 0 i D!ll,23)=1.0 
Dt 1 1 , AA ) “1 . 0 * D(12,A6)=1.0 * D(13,50)=1.0 $ D( 13 , AA ) =-l .0 

DI 1 A, A7 ) “1 • 0 $ D( 15, A7 ) =— 1 .0 $ 01 15, 88) “COS! . 0785A) 

D! 15,67)“— SIN! .0785 A) $ 0! 16 , A8 ) =-l .0 $ DI 15 , 88 ) “S IN I .0785A ) 

D( 16,67 l“COS! .0785A) t DI 1 7, A9) “-1 .0 % D( 17, 53) “1,0 

D( 1 8, 50) =-l .0 $ D I 18 ,8 1 ) “COS! . 0785A ) % DI18,60)“SINI .0785A) 

DU9,51)*-1.0 $ 0119, 81)=SINI. 078 5A) % DI 19, 60 ) “-COS 1 .0785A ) 

01 20,52) =-l .0 $ D ( 20 ,7A ) = 1 .0 
DI 21 , 88) “-1 .0 
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D(21,89l=C0$(. 07854) $ D( 2 1, 90 > * SI N( , 07854) 

0121 ,94 1 *-( l 7.0*51 N( . 078541 ♦17.0*C0S( .078541 1 

0(22,731—1.0 $ 0(22, 90>=C0S(. 078541 

D( 22 ,94 1 =-( 17. 0*COS (.07854 1-17. 0*SIN(. 07854 II 

0(22, R9)=-SIN( .07854) * 0( 23, 87) =- 1 .0 $ 0(23, 92>*COS(. 07854) 

0(23,931— S!N(. 078541 $ 0( 24,59 >=-1.0 t 0(24,911=1.0 

0(24,921=17.0 $ 0(24,931 — 17 .0 * D(25, 661*1.0 

0(25, 92)=-SIN(. 078541 * D( 25 ,93 I— COS ( .078541 t 0(26,801 — 1.0 

0(26,941=1.0 

D( 27, 89 1—1 .0 * 0(27, 961 *-1.0 * 0(27,1001*55.0 

01 28 ,90 1 *—1.0 $ 0(28,951=1.0 % 0( 29, 91 1 =-l .0 $ 0(29,971*1.0 

D( 29 , 99 >=-55.0 t 0(30,9 2) =-1.0 $ 0(30,991*1.0 

0(31,931*1.0 * 0(31 *981—1 .0 t 0( 32,94 >*-1.0 $ 0(32,1001*1.0 

0(33,1011*1.0 * 0 ( 33,951 =- l .0 t 0(34,1041*1.0 

0(34,98 1 =-l . 0 $ 0(35,1011*— 1.0 * 0(35,1071*1.0 * 0( 36 , 102 1 *- 1 .0 
0(36,1081=1.0 * 0(37,1031—1.0 $ 0(37,1091*1.0 i 0( 38 , 104 1 *- l .0 
0(38,1101 = 1.0 $ 01 39, 10 5.1 *-1.0 S 0(39,1111*1.0 

0( 40, 106 )=-l . 0 $ 0(40,1121=1.0 $ D( 41 ,41 1 — 1 .0 

0(41,113 l*-C0S( .09774 )*C0S( ,4363)+SlN( . 09774) *SIN( .4363 I 
0(41,123 )=C0S(.09774)*SIN( .43631 + SIN( .09774 1*C0S < .43631 
0(41, 1181*15. 0*COS( .097741 * 0(42,321 — 1.0 

0(42,113 )=SIN( .09774>*COS(. 43631 ♦ S IN ( .4363 1 *COS (. 09774 1 
0(42,123 >=-SIN( . 09774 1 *5 IN ( .43631 * C0S1 .09774 >*C0S( .4363) 

0(42 » 11 8 l=-l 5 .0*51 N ( • 09774 1 % 0(43,401 = 1.0 $ 0(43, 1181 *-1.0 

0(44, 1441=C05(. 26181 t D( 44 , 13 2 I =SIN( . 261 8 1 t 0(45 , 1 15 1 — 1.0 
0(45,1241=5 IN (.4363) * 0( 45, 144 >— COS I .4363 1 *S IN) . 2618 1 

0(45, 132)=COS(.43631*COS(. 2618) $ 0(46, 123 1--1.0 

0(46, 124 )=COS( .4363 1 $ D( 46, 144 )*S INI .4363 1 *SI N( . 2618 1 
D(46, 1321 =-SlN(. 4363) *00 S( .2618 1 $ 0(47,1201=1.0 

0 ( 47, 140 )=roS( .26181 $ 0(47, 128 1 — SINl .261 8) 

D(48,140)=-C0S( .4363 1 *S IN I .2618 ) 

0(48, 129 »=-C0S(.4363)*C0S( . 26181 $ 0(43, 136) *SIN( ,43631 
0(49,140 )=S IN ( .43631 *S IN (.2618) 

0( 49, 128 ) = S IN ( .4363 1 *COS( .2618) * 0 (49 , 136 1 *COS ( . 4363 1 

RETURN 

END 

SUBP OUTI NE WMTXC ( A, NP , NC , MAXR, MAXC 1 

C NR=POWS OF A, NC=COLS OF A, MAXR=MAX ROMS OF A, MAXC=MAX COLS OF A 
01 MF NS I ON A (MAXR, MAXC 1 
COMMON HMTXJ12) 

KE=0 

K SE T *NC / 8 
KLE FT =M00( NC ,8) 

IF(KLEFT.NE.O) KSFT=KSET+1 

00 10 KT=1,KSET 

K8*KE+1 

KE=KE+3 

!F( KT.EQ.KSETI KE=NC 

MR I TEt 6 , 5001 1 HMTX ,( J, J = KB»KE) 

DO 1,0 1*1, NR 

10 WRI TE ( 6, 5002 1 I* ( A( I , J) * J=K8,KE 1 

5001 FORMAT ( 1 HI // 1 2A 10// / / 10H ROW COL, 14, 7( 11X141 ) 

5002 F0RMAT(I4,8E15.7) 

RFTURN 

END 
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SUHPOUT ! NF ZEROM! A t M # L , MM AX, L MAX ) 
DIMFNSIQN A(MMAX,LMAX) 

DO 10 I : * 1 » M 
DO 10 J = 1 , L 
10 AU , J 1*0.0 
RETURN 
END 


FULL-SCALE TItT POT Off SYMMETRIC FREE- FLIGHT MODE $--90 OEG CONVERSION ANGLE 


20 144 49 

10 0 

10 1 0 

0 0 




5 5 1 

0.0 

35.0 

60.0 

95 . 0 

120.0 

3400000000.0 

8 OOCOCOOOO.O 

16000000000.0 

32000000000.0 


.1040 

14 0 

.1200 
1 0 

.3000 

1.4400 

2.1600 

4.124 

12 10 

0 0 0 




6 6 1 

0.0 

40. 0 

75 .0 

100.0 

120.0 

140.0 

30000000000. 

136C00000000. 

160000000000. 

166000000000. 

168000000000 < 

2.160 

5.280 

2.040 

.240 

.960 

.340 

1 4 0 

1 0 




11.520 

16 10 

0 0 




8 8 1 

0.0 

188.0 

35.0 

235.0 

63.0 

287.0 

105.0 

150.0 

168000000000. 

30000000000. 

1660C0000000. 

18000000000. 

146000000000. 

90000000300. 

45000000000. 

.940 
.72 0 

1 4 0 

1.978 
.350 
1 0 

2.900 

.600 

10.560 

2.556 

20.404 

11 4 1 

0 1 




5930000.0 

0.0 

0.0 

0.0 

125400000.0 

0.0 

-5980000.0 

0.0 

0.0 

0.0 

12 5400000.0 

0.0 

? 5 50000. 0 

0.0 

-53400000.0 

0.0 

0.0 

0.0 

-2550000.0 

0.0 

-53400000.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

-53400000.0 

0.0 

15QCCC0000 • 0 

0.0 

0.0 

0.0 

53400000.0 

0.0 

*50000000.0 

0.0 

125400000.0 

0.0 

0.0 

0.0 

3520000000.0 

0.0 

-125400000.0 

0.0 

0.0 

0.0 

1760000000.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 . 0 

0.0 

0.0 

-5980C00.0 

0.0 

0.0 

0.0 

-125400000.0 

0.0 

5980000.0 

0.0 

0.0 

0.0 

-125400000.0 

0.0 

-2550000.0 

0.0 


A 



534000 CO . 0 

0.0 

0.0 

0.0 

2550000.0 

0.0 

534 0 CCC 0 . 0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

- 53400000.0 

0.0 

750000000.0 

0.0 

0.0 

0.0 

534 CCOCO * 0 

0.0 

1500000000.0 

0.0 

125430000. 0 

o.o 

0.0 

0.0 

1760000000.0 

0.0 

^ 125400000.0 

0.0 

0.0 

0.0 

3520000000.0 

14 1 0 

0 1 




7 7 l 

0.0 

209.0 

34 . 0 
222.0 

75.0 

125.0 

173.0 

15000000000 . 

12400000000 . 

9200000000.0 

6000000000 . 

4600000000 . 

4150000000 . 

.381 
1 .48 

14 1 0 

.705 
0.0 
0 1 

.518 

.648 

.357 

7 7 1 

0.0 

209.0 

34.0 

222.0 

75.0 

1 ? 5.0 

173.0 

35000000000 . 

30 OOCCCOOOO . 

24000000000 . 

ia ooooooooo . 

15000000000 . 

14200000000 . 

.381 

1.48 

7 2 0 

.705 

0.0 
0 l 

. 51 « 

.648 

.357 

7 4 

0.0 

209.0 

34.0 

222.0 

75.0 

125.0 

H 3.0 

12300000000 . 

10400000000 . 

8200000000 . 

6000000000 . 

4600000000 . 

4200000000 . 

389.0 

526.0 
14 0 

414.0 
0.0 
1 1 

246.0 

231 .0 

251.0 

4.59 

6 4 0 

1 1 




7.25 

0.0 

0.0 

0.0 

137.8 

- 226.0 

0.0 

7.25 

0.0 

137.8 

0.0 

0.0 

0.0 

0 . 0 

7.25 

226.0 

0.0 

0.0 

0 . 0 

137.8 

226.0 

16627.0 

0.0 

0.0 

137.8 

0.0 

0.0 

0.0 

6417.0 

- 4297.8 

- 226.0 

0.0 

0.0 

0.0 

- 4297.8 

13180.0 

12 4 1 

0 1 




0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1366618.076 

0.0 

0.0 

0.0 

19132653.06 

0.0 

- 1366618.076 

0.0 

0.0 

0.0 

19132653.06 

0.0 

0.0 

1366618.076 

0.0 

- 19132653.06 

0.0 

0.0 

0.0 

- 1366618 . 076 

0.0 

- 19132653.06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

C.O 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

- 19132653.06 

0.0 

357142857.1 

0.0 

0.0 

0.0 

19132653.06 

0.0 

178571428.55 

0.0 

0.0 

19132653.06 

0.0 

0.0 

0.0 

357142857.1 

0.0 

- 19132653.06 

0.0 

0.0 

0.0 

178571428.55 

0.0 

0.0 

0.0 
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c.o 

0.0 

0.0 

0.0 

0.0 

c.o 

0.0 

0.0 

0.0 

0.0 

-1366618.076 

0.0 

0.0 

0.0 

-19132653.06 

0.0 

1366618.076 

0.0 

0.0 

0.0 

-19132653.06 

0.0 

0.0 

— 1366618.076 

0.0 

19132653.06 

0.0 

0.0 

0.0 

1366618.0 76 

C.C 

19132653.06 

0.0 

0.0 

0.0 

C.O 

0.0 

0.0 

0.0 

0.0 

c.o 

0.0 

0.0 

0.0 

0.0 

c.o 

0.0 

-19132653.06 

0.0 

178571428.55 

c.o 

0.0 

0.0 

19132653.06 

0.0 

35 7K2S5 7. 1 

0.0 

0.0 

19132653.06 

0.0 

c.o 

0.0 

178571428.55 

0.0 

-19132653.06 

c.o 

6 4 0 

0.0 
1 1 

0.0 

357142857.1 


3.64 

0.0 

0.0 

0.0 

0.0 

C.O 

0.0 

3.64 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

3.6 4 

C .0 

0.0 

0.0 

0.0 

0.0 

c.o 

28476.0 

0.0 

0.0 

0.0 

c.o 

0.0 

0.0 

14238.0 

0.0 

c.o 

0.0 

0.0 

0.0 

0.0 

14 2 3 8. C 

10 I 0 

0 0 




5 5 1 

C.O 

36.4 

71.5 

108.0 

145.0 

1520COCOOO C. i 

0 8CQOOOOOOO.O 

3400000000.0 

1 8 00000 COO. 0 


•C 663 

1 4 0 

.1306 
1 0 

. 1244 

.1166 

.0833 

.542 

8 10 

0 l 




4 4 1 

C.O 

45CCC0C00.0 

35.0 

2COOOOOOO. 0 

65.0 

1 20C00000. 0 

100.0 


C.O 

8 10 

0.0 
0 1 

.36 

© 

• 

o 


4 4 1 

C.O 

3CCC0CCC00.0 

35.0 

1500000000.0 

65.0 

750000000.0 

100.0 


C.O 

4 2 0 

0.0 
0 1 

.36 

o 

• 

o 


4 4 

C.O 

4CCCCCOOO.O 

35.0 

27500C000.0 

65.0 

100000000.0 

ioo.o 


o 

#-4 

o 

• 

o 

0.0 
1 1 

21.8 

o 

• 

o 


.36 

17 17 .88 

23 23 

2595.0 

23 24 -40.6 

24 24 

53 £1 -1C. 

57 65 -12. 

36 54 82 

96 58 86 

-12.96 

-18.64 

55 83 -9.84 

56 84 


PROGRAM BJD5I INPUT, OUTPUT ,TAPE3,TAPE4, TAPE6, TAPES ,TAPE9, 

1 TAPE50»TAPE5*INPUT ) 

DIMENSION CM! 99,99), VI 99,991 ,EM(99),CS(99 ,99 ), E (99 ) ,BETA( 144,99) , 

1 R C99 ), P(99 ), C (99,99 ),CINVBT( 99,99), BCBTt 99, 99), 

2 I PI VOT (99) , INDEX (99 ,2 ) 

COMMON HMTX( 12) ,FCON 

EQUIVALENCE! BETA ( I,1),CM(1,1),CS(1, 1 ) ,CINVBT( 1 , I) , INDEX ( 1,1)), 

L (V( 1,1), CM, I) yBCBT ( l, 1) ) 


.4 
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MAX=99 
MR E T A= 1 4 4 

C ON ENTRY TO THIS PROGRAM 

r T APE3 has ORDER AND BFTA MATRIX 

C T A PE4 HAS COUPLED MASS AND STIFFNESS MATRICES 

I PEADI 5, 5001 ) (HMTXI J),J=5,12) 

5001 FORM AT( 8 A10 ) 

I F ( EOF* 5 I 8598,8999 

8998 WRI TE(6, 89971 
PRINT 899? 

STOP 500 

3997 FORMAT!//* PROGRAM BJD5 STOPPED ON ( EOF, 5)*) 

8999 CONTINUE 

READI5, 5001 1 (HMTXI 1) , J= 1 ,4 ) 

NERR=0 
FCON = 1,0 
REWIND 3 

C R FAD OPDE” OF BETA F»DM TAPE 3 
R E AD( 3 > NRB , NCB 
REWIND 4 

C READ COUPLED MASS MATRIX FROM TAPE4 

REA0I4I ( (CMC I , J) ,1*1, NCB), J=1,NCB) 

C SOLVE FOR EIGENVALUES ANO EIGENVECTORS CF COUPLED MASS MATRIX 
CALL JACTV! NC B,M AX , 1 * CM, EM, V , DUM1, DUM2 , DUM3, DUM4, IERRI 
IF I IERR.EO.l) GO TO 1500 

C TEST FOR NUMRFP OF FINITE EIGENVALUES OF COUPLED MASS MATRIX 
DO 10 J=2* NCB 
I J= J-I 

IF( EM( J ) .LE.O.O) GO TO 11 

IF( (EM( I J)/EM( JM.GE. 1000000. 01 GO TO 11 

IF (J.EQ.NCB) I J=NCB 

10 CONTINUE 

11 NFMEV= I J 

C WRITE EIGENVALUES OF COUPLED MASS MATRIX ON TAPE 6 
WPITEI6, 12) CEM< I ), 1=1, NCB I 

12 FORMAT!//* EIGENVALUES OF COUPLED MASS MATRIX *// ! 2X , E 15.8 ) > 
WR I T E ( 6 * 13 ) NFMEV 

13 FOPMAT!//* NUMBER OF FINITE MASS EIGENVALUES = *,I3//> 

C READ COUPLED STIFFNESS MATRIX FROM TAPE4 

RE AD (4 M ICS! I, J), 1=1, NCB), J=1,NCB> 

C REWIND TAPE4 AND WRITE COLUMNS OF VECTOR MATRIX ON T APE4 
C PEWIND TAPF9 AND WRITE ROWS OF VECTOR MATRIX ON T&pg9 
REWIND 4 
REWIND 9 
DO 20 J = 1 , NC B 
WRITE (9 MV! J , I ) , 1 = 1, NCB I 
20 WRITE (4) (V ( I , J) , 1=1 ,NCB! 

C MULTIPLY STIFFNESS BY VECTOR AND STORE IN V 
REWIND 4 
DO 30 J= 1 ,NC B 

C READ COLUMN OF VECTOR MATRIX 

P EAD! 4) ( R! I l,I=l,NCB) 

DO 30 1=1, NCB 
V(I, J)=0.0 
DO 30 I J=i, NCB 

30 VC I , J)=VII,JMCSl!,IJ)*R(IJ> 

C COMPUTF VT*l C S* V) 

REWIND 4 
DO 40 1=1, NCB 

C REAO COLUMN OF VECTOR MATRIX AS ROW OF VECTOR TRANSPOSE 


■i 
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PFA0(4MR(.JI,J*i,NCBI 
DO AO J = 1»NCB 
CSI I , J!=0.0 
DO 40 I J =1, NCB 

40 CSI I, JI=CS( I, Jl+Pt I JI*V( IJ, Jl 
K=NFMEV 
N=NCB-NFMEV 

C IF THE NUMBER OF FINITE MASS EIGENVALUES CNFMEVI IS EQUAL TO THE 
C ORDER OF THE COUPLED MASS MATRIX CM, BYPASS PARTITIONING OF THE 
C COUPLED STIFFNESS MATRIX CS. 

IFIN.EQ.O! GO TO 79 
KP1=K+1 

CS WILL BF PARTITIONED AS FOLLOWS (A 3! 

(BT Cl 

WHERE A=(K*K1, B=(K*Nl, BT=(N*KJ, C=(N*NI 
REWIND 4 

STORE MATRIX A ON TAPE4 BY COLUMNS, 1 RECORD 
WRITE (4 1 I(CS(I»J)*t=l,KI,J=l,Kl 
REWIND 8 

STORE MATRIX C ON TAPE 8 BY COLUMNS, 1 RECORD 
WRITFI8) I (CPU, J»,I=KP1,NCBI,J*KP1,NCB1 

STORE MATRIX 3 ON TAPE8 BY ROWS, K RECORDS 
DO 50 1=1, K 

50 WR1TEI3) (CSI I, J>, J=KP1,NCB) 

READ MATRIX C FROM TAPES AND COMPUTE THE INVERSE OF C 
REWIND 8 

READ (8I( C C ( I ,J),I = l,Nl, J=l, Nl 

CALL MATINV(C»N*8I ,0,DET, I P I VOT , INDE X, MAX, I SC AL E) 

COMPUTE C INVERSE TIMES B TRANSPOSE 
DO 60 J= 1, K 

READ ROW OF 8 AS COLUMN OF B TRANSPOSE 
R EAD (8I(P(I)*I = 1»N> 

DO 60 1*1, N 
Cl NVBT ( I , J | =0 .0 
DO 60 I j =1 , N 

60 CINVBT I I » J I =CINVBT ( I , J ) +C I I,IJ1*P( I J) 

REWIND 8 

THE NEXT READ STATEMENT IS A DUMMY READ TO POSITION T APE 8 
READC8I SKI PP.EC 

COMPUTE P * (C INVERSE * B TRANSPOSE! 

00 TO 1*1, K 

READ ROW OF B 
READ 1 8 M P( J I , J*l, Nl 
DO 70 J* I, K 
BCBT 1 1 , J )=0 .0 
DO 70 I J =1 , N 

70 BCBT I I,Jl*9CBT(l,Jl+P(IJ!*CINVBT(IJ,J) 

REWIND 8 

STORE C INVERSE TIMES B TRANSPOSE ON TAPE? BY COLUMNS, 1 RECORD 
WRITE (8 I (ICINVBTII, J I , 1 = 1, N I , J= 1 ,K I 
REWIND 4 

READ MATRIX A FROM 4 
READ(4) ( (CSI I , J) ,I=l,K) , J=1,KI 
COMPUTE A - (8*CINV*BT) 

REPLACE THE FIRST K (FINITEI EIGENVALUES OF THE MASS MATRIX BY 
1 .0/1 SQUARE POOT OF EIGENVALUE! 

79 00 81 1=1, K 

EM( I 1 = 1 .O/SQRTCEMI I I 1 
IFIN.EQ.O! GO to 81 
DO 80 J=1,K 


■i 
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so csi it ji=csii, n-BCBTir, j) 

81 CONTINUE 

C PRE- ANO POST-MULTIPLY the CS MATRIX BY l./SQRTIMASS EIGENVALUES) 

00 90 I = 1,K 
00 90 J= l* K 

90 CSI I • )) =EM( I ) *CS 1 1 » J ) 

DO 100 J = l,K 
DO 100 I=1,K 

ioo csi i, ji=csi i , j)*emi n 

CALL JACTVIK,MAX,K,CS, E , V ,0UM1 , DUM2 ,DUM3 ,DUMA , NERR ) 

IFINERR.NE.O) GO TO 1500 
CALL FREQIE,CS,K,MAX) 

C PPF— MULTI PLY VECTOR MATRIX BY l./SQRTIMASS EIGENVALUES) 

DO 110 1=1, K 
DO 110 J*1,K 

110 VII, JI-EMII l*VII,J) 

REWIND A 

C STORE X SUB 1 VECTORS ON TAPEA, BY COLUMNS, K RECORDS 

DO 115 J=l,K 

115 WRITEIA) (VII, J), 1=1, K) 

IFIN.EO.O) GO TO 1AA 
REWIND 3 

C READ C INVERSE * B TRANSPOSE MATRIX FROM TAPF8 

PEA0I8) 1 (CSI I,J),T=1,N1, J=1,K) 

REWIND A 

C MULTIPLY 1C INVERSE * B TRANSPOSE) BY X SUB 1 VECTOR MATRIX 

DO 120 1=1, K 

C READ COLUMN OF X SUB 1 MATRIX FROM TAPEA 

RFAf) I A ) I PI I ) , 1 = 1, K) 

DO 120 1=1, N 
VII , J)=0.0 
DO 120 I J* 1 * K 

120 VII , J)=VII, JI+CSII , I J)*P( I J ) 

C X SUB 2 VECTOR MATRIX = - VECTOR MATRIX JUST COMPUTED 

DO 125 1=1, N 
DO 125 J=1,K 

125 VII, J)=-V(I, J) 

C STORE X SUB 2 VECTOR MATRIX ON TAPEA BY ROWS, 1 RECORD 

WRITEIA) (IVII, J),J=1,K),I=1,N) 

C REWIND A, THEN RFAO X SU8 1 VECTORS INTO FIRST K ROWS OF CS AND 

C READ X SUB 2 VECTORS INTO (K«-l) TO NCB ROWS OF CS 

C THE PS MATRIX IS NOW (NCB * K) 

IAA REWIND A 

DO 1A5 J*1 , K 

1A5 READIAK CSI I , J) ,1 = 1, <0 

IF! N.NE.O) READ! A) II CSI I, J) , J=1 , K ) , I =K PI ,NCB ) 

C MULTIPLY MASS VECTOR MATRIX BY CS MATRIX 

REWIND 9 
00 1A6 1=1, NCB 

C READ ROW OF MASS VECTOR MATRIX 

RFA0(9)(R( J ), J=1,NCB) 

DO 1A6 J =1 , K 
VII , J)=0.0 
DO IA6 IJ=l,NCB 

1A6 VII, J)=VII, J)+RIIJ)*CStIJ, J) 

C COMPUTE BETA * the FINAL VECTOR MATRIX 

REWIND 8 
00 151 1=1, NRB 

C READ ROW OF BETA MATRIX 

REA0I3II RIJ ) » J*1 *NC3) 


A 
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DO ISO J = 1 , K 
P(J 1=0.0 
no 150 1 J=1 ,Nf B 

150 P< J ) = P< J H-p H J >* V( T J , J | 

151 WP ! T E €3 » (P( J) , J = 1,K) 

CFWTNO 8 

CO 160 1=1, NRR 
160 READ (8 )( BETA d , J ) , J = 1 , K ) 

CALL WM T XC ( P E T A * NR 8 , K » MB FT ft , MAX ) 

REWIND 5 C 

WRI T E(50)( ( BFTA(I, J) , 1=1 t NR B ) * J = 1 , K ) 

CtO to 1 

1500 IF( IEPo . EO.l ) WR I T E (6,1501) 

IF ( NERR . NF .0 1 WR TT£ (6 ,150T) 

1501 FOPMAT(//« FRROR ■* F’’UF N FROM JACTV - RIPST CAlt - COUPLED MASS*) 

1502 FORMAT!//* ERROR Rf T URN FPQM J\C TV - SECOND FAIL - STIFFNESS*) 

DO TO 1 

END 

SURF OUT I NF WMTxr ( a,NP ,N r,MAXR,MAXC ) 

C NR=ROWS OF A, NT=COLS OF A* MAXR=MAX ROWS OF A, M VXC =MA X r 01 S OF A 
D I MF NS I ON A ( M A XR * M A XT ) 

COMMON HM T X (12) 

KE = 0 

K SE T =NC / 8 
KLEf T = MOD( NC , R ) 

IF ( K LFF T .N6 .0 ) KSFT=KSFT4-1 
DO 10 KT =lt K$FT 
KB=KE+l 
KE=K E+8 

I F ( K T .EO .K S F T ) K E = NC 

WR I T E 1 6 » 500 1 ) HMTX, I J , 1=KB, KE) 

no 10 t=l,NP 

10 WR I T£ (6 » 500 2 ) I,(M I,J), J = KR,KE) 

5001 FORMAT! H1//12A10////10H ROW COL ,14,7(11X14)) 

5002 F0° M A T ( I A* 8 E 1 5.T ) 

RFT(jpfg 

END 

SUB r 0U T T NF FRFOt F, A ,K ,MAX) 

F IMF NS I ON F (MAX) ,A(MAXfMAX) 

COMMON HMTX (12) ,F r ON 
DO 10 1=1, K 
A ( T , l )=E U) 

All ,2)=FC0N*Ed) 

A ( T ,3 )=SQRT ( A PS ( A ( 1,2))) 

10 A( I » 4 ) = A ( I ,3 1/6.2831 8 5 30" , l"’S5 < 3 

PRINT 5014, (HM T X( J ) , J=5,12),FC0N,( I, (AM , I) , )= 1 , A ) , I = 1 , K ) 

WRITE (6, 501 4) (HMTX{ ) ) , J =5 , 12 ) ,FC ON , d , ( A { I , J ) , J = 1 ,4 ) , I = 1 , K ) 

5014 F()RMA T ( 1 HI / / 1X8A10//7W FCON = , E 2 2 . 14 // 4X.1H J9X0HL AMBD A( J ) 14X1 2H0MEC- 
1A SO ( J ) 14X8HCMEGA ( ) ) 14X 13HFR EO , ( ) ) , C° $ /34X1 3H I FCON * LAMBDA! J ) ) 1 
22X6H (RFAL) //(T5,4E24.14) ) 

RETURN 

FNO 
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VIBRATION ANALYSIS BY COMPONENT MODE SYNTHESIS 


PROGRAM C n S M C S { INPUT, OUTPUT, TAPES* I NPUT*TAPE3,TAPE4*TAPE6,TA»E8* 
1 TAP E9 » T AP E IP * TAPE 1 i , TAPE 1 2, TAP E 20 ) 


********* ********** ********** ** **** **** ********************************* 


$ * 

* PROGRAMS COSMOS, vnOAiCt AND BJ 05 M COMPRISE A COMPUTER * 

* PACKAGE F-oc THE -MAT.UPAL MODE VIBRATION ANALYSIS OF * 

* COMPLEX ST^UCTU-AL SYSTEMS BY THE METHOD OF COMPONENT * 

* mhqf SYNTHESIS. * 

* * 

* THE STRUCTURE IS IDEALIZED AS AN ASSEMBLY OF BEAM, SPR IMG, * 

* AND RIGID MASS SUBSYSTEMS. A FINITE-ELEMENT APPROACH * 

* IS EMPLOYED TO GENERATE THE MASS AND STIFFNESS MATRICES * 

* FOR THE UNCOUPLED SYSTEM AND THOSE REQUIRED FCF * 

* SUBSYSTEM MODAL ANALYSES. SUBSYSTEM BEAM ROOT CONDITIONS * 

* CAN BE FRE F — FREE « P INNED— FR EE , OR CLAMPEC-FREE . PROGRAM * 

* PERMITS OPTION IF EXPRESSING MODAL EXPANSION MATRIX * 

* AS A COMBINATION OF CALCULATED SUBSYSTEM NATURAL MODES * 

* AND ADDITIONAL USER-INPUT DEFLECTION SHAPES I SUCH AS * 

* MI ASUPEO wide SHAPES, STAT IC DEFLECTION SHAPESfOR * 

* ASSUMED DEFLECT I ON SHAPES). USER-WRITTEN CONSTRAINT * 

* EQUATIONS ENFORCING INTER -SUB SYSTEM DISPLACEMENT * 

* COMPATIBILITY AR r APPLIED ACC ORD I NO TQ THE METHQO OF * 

* NASA tr F-326. A ClNQEMSATION Of THE SYSTEM GENERALIZED * 

* STIFFNESS MATRIX IS PERFORMED* IF NECE SS ARY , AN C THE * 

* RESULTANT F QUA T ION S C AST INT n A FORM TO WHICH THE * 

* THRESHOLD VARIATION OF THE JACOBI ALGORITHM FOP FINDING * 

* EIGENVALUES ANO E I GEN VECTOP S IS APPLIED. * 

* * 


** * ****** * *** ** ****** ************** ************************************* 


DIMENSION A{l3,t3),B(13,13),CH3, 13) ,DM(13) ,^HI3),X( 13) V S (13 It 

1 E!?t>) , C S (13) , EC ( 1 3 ) , I R ( 26,2),AA(26,2t),BB(2Z,2t) , 

2 FIG VI 26) , VC 26 ,2 6 ) , l M| 26 ) , R I 26) , I PIVOT 1 1 3) , INDEX C 13, 2 ), 

3 CJNVBTC l J , L 3 1 , p C lil » BC I NVB T 1 13 *13) ,EV(26) 

CC MMON/ S4 m E/HMT X (12) » HCON , KAS 6* IFfPC, IF I T At L 

M A X - 1 3 $ MA'xT 2-26 % MAXT3 = 39 

M AX2 =2 

FC0N=1 • 0 

F EW I NO 11 

REWIND 12 

REWIND 2D 

1 F LAO K l' , (HMTX ( J ) , J = 5, 12) 

1010 FOPMATC 8A 10) 

I F ( E n F , 5) 8990, 8999 

6997 FORMAT! 1H1//* PP'TrPAM COSMOS ST np RED CN EOF, 5 *) 

8999 CONTINUE 


K AS E= 1 , 
KASE=2, 
KAS E= 3* 


K AS E = 4 , 
KASE-5, 


01 AGCNAL MASS ONLY (NO NULL VALUES) 

DIAGONAL MASS AND ROTARY INERTIA I NC NULL VALUES) 
NOM-DI AGON AL MASS AND ROTARY INERTIA (NULL VALUES 


CAN BE ON DIAGONAL) 

01 AGONAL TORSIONAL INERTIA 
VALUES ON DIAGONAL) 
DIAGONAL TORSIONAL INERTIA 
VALUES CAN BE ON DIAGONAL) 


OP 

AXIAL 

MASS 

(NO NULL 

OF 

AXIAL 

MASS 

(NULL 
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— -BEAM EMU CONDITinNS— 

IFF PC = l » FREE-FREE 
I FFPC = 2 1 PINNED-FREE 
IFF PC = 3f CL AMPED-FR EE 

STATIC UNBALANCE TERMS ARISING FROM MASSES OFF THE 
ELASTIC AXIS COUPLE BENDING AND TORSION 
ICBT ~1 * COUPLED BEND I NG- TORS ION 

ICBT -0 , BENDING AND TORSION UNCOUPLED I0F NOT APPLICABLE) 

FOP SPRING OR RIGID BOOT SUBSYSTEMS NO MODAL EXPANSIONS 
WILL 86 PERFORMED. USER HAS OPTION TO BYPASS MODAL 
EXPANSIONS FOR ANY BEAM SUBSYSTEM. 

I EXP AND*! f MODAL EXPANSION WILL BE PERFORMED 
I EXP AND -0 1 NO MODAL EXPANSION I0R NOT APPLICABLE) 

NS P ADO = NUMBER OF SPRING CONSTANTS TO BE ADDED ON AND ABOVE 
DIAGONAL OF FREE-FREE STIFFNESS MATRIX IN A GIVEN 
BLOCK. PROGRAM WILL PROVIDE SYMMETRY AS REQUIRED. 

— NOTE— THESE SPRINGS TIE BEAM OR RIGID BODY 
ELEMENTS TO GROUND ONLY AND NOT TO OTHER ELEMENTS. 

MASADO = NUMBER OF MASSES TO BE ADDED CN ANC ABOVE 

DIAGONAL OF THE FREE-FREE MASS-ROTARY INERTIA 
MATRIX IN A GIVEN BLOCK. THE PROGRAM WILL 
PROVIDE SYMMETRY AS REQUIREO. 

MASCBT = NUMBER OF STATIC UNBALANCE TERMS ABOVE DIAGONAL 
OF COUPLED BENDING-TORSION MASS MATRIX. THE 
PROGRAM WILL PROVIDE SYMMETRY AS REQUIRED. 

IR I TALL CONTROLS INTERMEDIATE OUTPUT TC TAPE 6 WHICH 
MAY BE POUTED. 

I R IT ALL -I » SUBSYSTEM MASS AND STIFFNESS MATRICES 

FOR FREE-FREE AND RESTRAINED CONDITIONS 
WILL BE OUTPUT 
IRIT ALL=0, ABOVE NOT OUTPUT 

C NBLKS = NUMBER OF BLOCKS IN UNCOUPLED , FREE-FREE SYSTEM 

C MASS AND STIFFNESS MATRICES 

C NORDEP = ORDER OF UNCOUPLED, FREE-FREE SYSTEM 


C READ NUMBER OF BLOCKS IN UNCOUPLED SYSTEM MASS AND STIFFNESS 
C MATRICES AND ORDER OF SYSTEM 
READ 1020 ,N8LKS, NOROE R 
Wft I T E I 6 1 1 01 1 ) NB LK St NOROE R 
PRINT lOlltNBLKStNORDER 

1011 FORMAT I 1H1//* NUMBER BLOCKS IN UNCOUPLED SYSTEM MASS AND STIFFNESS 

1 MATRICES = *,I3//* ORDER OF SYSTEM = *,13) 

DO 200 NBLOCK=i, NBLKS 
V»RITE!6, 10191 NBLOCK 
PRINT 1019, NBLOCK 

1019 FORMAT! IH //1X # 19H***** ************** /IX, 19H* */ 

1 IX » 14H* BLOCK NUMBER » I3,2H */iX,19H* */ 

2 IX, 19H*******************) 


A 
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C KK = OR DER PF BLOCK 

LOC= 1 t BEAM BENDING 
L0C=2, BEAM TORSION 
LIC =3, BEAM AXIAL 

L0C=4, SPPING OR RIGID BODY ELEMENT 

FOR SPRING OR RIGID BODY ELEMENTS 

MK*1, READ STIFFNESS FROM CARDS 
MK=0, NO READ 

MM=1, READ MASS FPOM CARDS 
MM— 0» NO READ 

FOR A SYMMETRIC OR ANTI-SYMMETRIC FORMULATION OF THE 
PROBLEM, THE MASS AND STIFFNESS MATRICES FOR BLOCKS 
CORRESPONDING TO SUBSYSTEMS OUT OF THE VERTICAL PLANE 
OF SYMMETRY MUST BE MULTIPLIED BY 2.0 

I SYM=1» MULTIPLY BLOCK MASS AND STIFFNESS MATRIX BY 2.3 
ISYMeO, no multiplication 


READ L020,KK,L0C,MK,MM, IEXPAND, ISYM 
1020 FORMAT ( 20 14 1 

GC TO (110, 120, 120, 130), LOC 

********* ****** 

BEAM BENDING * 

*************** 

FOR BEAM BENDING, FREE-FREE STIFFNESS MATRIX IS 
GENERATED IN THE PARTITIONED FORM (A B) 

IBT C> 

WHERE A* IK*K) , BMK*N>, BT=(N*K), C=(N*N) 

FOR THE FREE-FREE CASE, K*N 

110 READ 1020»K,N,KASE»ICBT,IFFPC , NSP ADD, MASADO, IR ITALL 

WRITE! 6, 1030) K,N,KASE, ICBT, IFF PC ,NSP ADD, MAS ADD, I R IT ALL 
PRINT 1030, K, N, KASE, ICBT, IFFP C,NS PADD.MAS ADD, I RIT ALL 
1030 F0RMAT(//9X»*K*,9X,*N*,8X,*KASE*,6X,*ICBT*,7X,*IFFPC*,7X,*NSPA0D*, 
1 6X,*MASADD*,5X,*IR ITAL L*// 41 10 ,41 12 ) 

1C4C FORMAT! 5E14. 8) 

IFUCBT.EO.l) K ASESAV*KASE 
KM1=K-1 

CALL ZEROM( A,K,K,MAX,MAX> 

CALL ZEROM( B»K , N, MAX, MAX) 

CALL ZEROM(C,N,N, MAX, MAX) 

CALL ZEROM(OM,K, l, MAX, l ) 

CALL ZEPOM(RI,N,l,MAX,l) 

READ 1040,1X1 I),I S 1,K) 

READ 1040, «S( I ) , I* i» KM1 ) 

FEAD 1040, 1DMII), 1=1, K) 

IF (KASE.NE. II READ 1040, I R 1 1 I ) ,1 *l,N) 

PRINT 10SC , I J ,X ( J) ,Sl J) ,DM(J),RH J),J=1,KM1) 

WPITEI6,1050)l J,X( J),S( J) ,DMI J),RIC J),J»l,KMl) 

PRINT 105 1 , K , X I K ) * DM ( K ) , R I ( K ) 

WPlTEI6,105l)K, X(K),DM(Kl ,R1(KI 
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1050 F(jRMATI///3X,*J*,7X,*XI J)*,UX,*E I ( J ) * , 10X , *MASS( J)*, 10X,*KII J»*, 

1 //II4,4E16.8)I 

1051 FORMAT ( t 4 , E 16. 8 , 16X, 2E 16. 8) 

DC 40 L=1,KM1 

40 E<Lt*l.O/(X(L+l)-X(L) 1 
CC 41 L=1,KM1 

41 ESCL >=EIL1*E<L) 

DO 42 L* l »KM1 

42 EC I L ) = EIL )*ES II ) 

C FORM MATRIX A 

All,2)=-Atl,l> 

AIK,KM1)=-12.0*$IKM1)*EC(KM1) 

A l K » K)=-A I K »KM1 ) 

M=0 

DO 50 L=2,KMl 
M*M + 1 

AIL *M) =-12.0* SI M)*ECl M) 

/i<L,M+2)=-12.0*S<M+l)*EC<M+l) 

50 AIL,M+1)=-I 4<L,M)+A<L,M*2)> 

C FORM MATRIX B 

BII»1I = 6.0*SI1) *ES III 
811,21=81 1,1) 

BIK.KM1 )=-6.0*SIKMl)*ESIKMl) 

BIK,K)=BIK,KM1I 

M=0 

DO 61 L=2 ,KM1 
M*M+1 

BtL,M)=-6.0*S|M)*ES<M» 

Bl L , M+2 )=6.0*S( M+11*ESI M* l ) 

61 BIL»M+1)=B<L,M)+BCL,M*2) 

C FORM MATRIX C 

cii,i)=4»o*sm*Em 
Cl l»2)=2.0*Sl l)*Et 1) 

CIX.KM1 >=2.0*SIKM1 >*EIKM1 > 

CIK, K)=4. 0*SI KMI )*£! KM1 ) 

M=0 

DO 71 1=2, KM1 
M*M+1 

CIL, M)=2.0*SIM)*EIM) 

C I L , M+2 ) = 2.0*5 ( M+ 1 >*E IM + 1 > 

71 Cl L » M+l 1=4.0* IS ( M+l) *E( M+ 1) +S (M )*EtM ) ) 

IFINSPADD.EQ.O) GO TO 90 

READ 1060, (IR I J , 1 ) , IR I J ,2 ) ,E I J» ,J=1,NSPADD) 

1060 F0RMAT14I2I3.E14.8IJ 

WRITEI6, 1061) ( J, IR(J,l) ,IRC J.2) ,E l J ) , J=1 , NSPADOI 

1061 FORMAT I // 4X,*J* » 2X, *R3W*» 2X, *CQL* » 7X, *SPR 1NG I J ) */ / I 31 5, £22. 14) I 
DO 90 J J=1,NSPADD 

NPOW=IR IJ J, l) 

NCOL =IP l J J,2) 

IFINROW.GT.K) GO TO 89 
IFINCOL.GT.K) GO TO 88 
A( NROW, NCOL ) =Al NROW, NCOLM-E I JJ) 

IF I NROW .NE.NCOL ) AIRCQL.NBOW) =A(NCOL* NPOM J + EI J J ) 

GO TO 90 
88 ACOL=NC OL -K 

B I NROW, NCOL ) = 8 1 NROW, 'ICOL ) +E l J J ) 

GO TO 90 


j 
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89 NROW=NROW-K 
NCOL *NCOL-K 

Cl NROW, NCOL I =C.I NROW, NCOL) +E I J J > 

IF I NROW. NF. NCOL I Cl NCOL, NROW ) = Cl NCOL , NROW ) +E l J J I 

90 CONTINUE 

C FORM FREE-FREE BENDING STIFFNESS ANO MASS MATRICES 
KPN=K*N 
KPl=K+l 

IF! ICBT. EG. 1) KK *KK + KK/ 2 
IF ( ICBT .EQ.I ) KKSA V=KK 
IFIICBT.EO.il M AXT 2=MAXT3 
CALL ZEROM( AA , KK ,KK, MAX T2 , MAX T2 ) 

CALL ZER0MIBB,KK,KK»MAXT2»MAXT2) 

REWIND 3 

WF I T E ( 31 (lAtI,J),J=l v K),I=l,K),l(BlI,J),J=l,N),l=l,K),l(B(I,J), 

1 1=1 tK 1 , J=1,N Iff f Cl 1 1 J )t J= t *N 1,1 *lfNl *(DM| J) ,J = 1,K) , 

2 CPU J) ,J=1,N) 

REWIND 3 

FEADI3) U AAI1 ,J), J=l,K) »l=i,K ), 1 1 AAI I » J ) # J*KPl »KPN ) * I = 1 ?K I , 

L ( ( AAI t » J I , J* 1 , K ) , I * KP l , KPN) , 1 1 AAI I , J ) , J*KP| , KPN ) , I = K PI , KPN ) , 

2 I BBC J, J ) » J= 1, KPN ) 

IF I ICBT.NE.il GO TO 1064 
REWIND 9 

WRITE (9) (<AA( I , J) t J*l«K ON) tls.lt KPN) 

C MULTIPLY FREE-FREE STIFFNESS MATRIX BY 2.0 IF ISYM = l 
106 A IF I ISYM.EQ.O) GO TO 1066 
DO 1065 1=1, KPN 
DO 1065 J= l, K PN 

1065 AAI l ,J) =2 .0*AAt I , J ) 

1066 IFIICBT.NE.il GO TO 1068 
K P = K $ NP=N 

GO TO 1069 

C WPITE ORDER AND FREE-FREE STIFFNESS MATRIX ON TAPE 11, l RECORD 
1 C6 8 WRITE! 11 1 KPN, II AAI I, J I, J=i, KPN I ,1=1, KPN) 

I F 1 1 R 1 T ALL » EQ . 0 ) GO TO 1069 

HMTX ( 1 1 = 10H FPEE-FRE S HMTX!2)=10HE BENDING 
HMT X 13 ) = 10HST I FFNE SS $ HPTXt V)=10HMATRIX 
CALL WMTXCIAA,KPN?KPN,MAXT2, MAXT2) 

1C 69 CONTINUE 

IF {M ASADD.EQ.O I GO TO 93 

READ 1060,1 IR I J , 1 1 , 1 R I J ,2 I » E I J I ,J=1,MASADD) 

00 93 J= 1 » MAS ADD 
NRCW=I R I J , 1 I 
NCOL*I R C J ,2) 

RBI NROW, NCOL ) = BB I NRQW , NCO L )+E I J I 
IFINPOW.NE.NCrL) BB I NCOL , NROW I =BBI NROW, NCOL I 
93 CONTINUE 

IF! ICBT.NE.U GO TO 99 
REWIND 10 

WRITE! 10) I IBB I I , Jl ,J*lt KPN), 1 = 1, KPN I 
C MULTIPLY FREE-FREE MASS MATRIX BY 2.0 IF ISYM = l 
99 IF! ISYM. EQ. 01 GO TO 98 
REWIND 8 

WRITE! 8 I I IBBI 1, Jl, J=l , KPN I, 1 = 1, KPN) 

CO 96 1=1, KPN 
DO 96 J=1 , KPN 
96 BB I I , J 1 =2.0*BBf I , J I 
98 IF I ICBT .NE. 1 1 GO TO 95 
GO TO 97 
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C WRITE ORDER AND EPEE-FREE HASS MATRIX ON TAPE 12, 1 RECORD 
95 NRITE112IKPN, I IBB! I, J), J=1,KPN> ,1*1, KPN) 

IFIIRITALL.EQ.O) GO TO 94 

HMTX (1 ) *1GH FP EE- ERE * HMTX!2)*10HE BENDING 
HMT X 13 ) *1QHMA SS MATRI t HMTX!4)=10HX 
CAU WMTXCIBB,KPN,KPN,MAXT2,MAXT2) 

94 CONTINUE 

IF ( ISYM.EQ.O) GO TO 97 
REMIND 8 

READ 18) (IBB( I,J) ,J*1,KPN) ,1*1, KPN) 

97 IF(ICBT.EQ.l) GO TO 200 

IF( IEXPAND.E0.1) GO TO 1070 
CALL ZEROMC V, KK »KK,MAXT2* MAXT 2) 

CO 1071 I =1 ,KK 
J*KK*1-I 
1071 V!I,J)=1.0 

KPN=KK * K=KK 
GO TO 7000 

C APPLY BOUNDARY CONDITIONS TO FREE-FREE STIFFNESS AND MASS MATRICES 
107C IBA= 1 
IBt*l 

IF! IFFPC.GE.2) I BA =2 
IF( IFFPC.EQ.3) IBC=2 
KA=K»IBC 
REWIND 3 

1 I !C! I,J),J=I8C,N), I*IBC,N),! IBBII, J),J*IBA,K) • I*IBA,K), 

2 I <B8! I, J),J*KA,KPN),I*IBA,K), I ( BB 1 1 , J ) , J* I BA, K ) , 

3 I=KA,KPN),( 1 88! I,J) *J=KA*KPNI,l=KA*KPN) 

IFIIBA.EQ.2) K=K-1 

IFIIBC.E0.2) N=N-1 

HMTX I 1 ) * 10H K, N AFTE * HMTX!2)=10HR APPLICAT 
HMT X (3 ) *1 CHI ON OF BDR * HMTX ( 4 )= 10HY. COND. 

WRITE! 6, 1080)HMTX,K,N 
PRINT 1080, HMTX, K,N 

1080 FORM AT 1 / / / / 12A 10/75X » *K = *,I3,10X,*N * *,I3) 

REWIND 3 

KPN=K*N 

KPl=K+l 

READ (3) I ( AAII, J) ,J = 1,K) ,I=1,K), U AA(I,J), J=K PI, KPN I , I *1 , K ) , 

1 !! AA!l,J),J=KPl,KPN),I=KPl,KPN)»!(BB(I,J)» J=i,K),I*l»K), 

2 !!BBII*J)*J=KPl»K a N)*I=l*Kl»I(BB!I,J)*J*l*K)*I=KPl*KPNI» 

3 (IBB II, J), J=KP1 »KPN)»I=KP1 ,KPN) 

DO 11 I * K P 1 , K PN 

00 11 J*1 ,K 

11 AA( I , J )=AAl J , I ) 

IF(IRITALL.EO.O) GO TO 12 

HMTX ( 1 ) = 10H FINAL ST $ HMT X( 2) =10HI FFNE SS MA 
FMTX 13 ) = 10HTR IX * HMTX!4)*10H 

CALL WMTXC(AA,KPN,KPN,MAXT2,MAXT2 ) 

HMTX! 1 ) = 10H FINAL MA $ HMTX! 2) = 10H SS MATRIX 
HMT X ! 3 ) = 1CH * HMTX!4)=10H 

CALL WMTXCIBB«KPN,KPN»MAXT2*MAXT2) 

12 FEWIND 4 

C WRITE ORDER, MASS MATRIX, AND STIFFNESS MATRIX ON TAPE 4, l RECORD 
MR ITE!4 ) KPN, ! !BB(I,J),J=1 ,KPN I , I = 1 , KPN ) , ( ( AA( I, J) ,J*1,KPN) , 

1 1*1, KPN) 

C CALI EIGENVALUE SUBROUTINE 

CALL ALLEIG! AA, BB, KPN, MAX T2, MAX,M AX2 ,K,N, C, IPIVOT, INDEX, P, 
l CINV8T,BCINVBT,EM,EIGV,V,EV,R,KPR, ICBT) 


A 
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Gf TOC 105, 102, 1021 IFFPC 

C ADD RIGID BODY TRANSLATION MCDE TO MODAL MATRIX 

102 N=KPN/2 
K=K+l $ J=N 
DO 103 1=1, N 
J=J*1 

VC I»K>=1.0 

103 VCJ»K)=0.0 

IF I IFFPC.EQ.2) GO TO 105 
C ADC RIGID BODY ROTATION MODE TO MOOAL MATRIX 
K=K*1 $ J=N 

DO 1C4 1=1, N 
J=J + l 

VC I *K) = XC I I 

104 VC J, K) = 1.0 

105 CONTINUE 

C WRITE ORDER AND MODES C BY COLUMNS) ON TAPE 20, 2 RECORDS 
7 OOC WRITEC20) KPN.K 

WRITEC20) t CVC I , J) ,1 = 1, KPN), J=1,K) 

IFCN BLOCK. EQ.N8LKS.AND.NBLKS.E0.il GO TO 1 
GO TO 200 

************************* 

* BEAR TORSION OR AXIAL * 

* 4 * 4 ********************* 


C FREE-FREE STIFFNESS MATRIX IS OF ORDER K 

120 FEAD 1020, K,KASE, IFFPC, NS PADD , MASADO, IRIT ALL 

WRI TEC 6, 1090IK ,KASE, IFFPC,NSPAD0, MAS ADD, I R ITALL 
PRINT 1090 ,K» KASE, IFFPC ,NSPADD, MASADO, IRI TALL 
1090 FORMAT! Z//9X,*K*,8X»*KASE*»5X ,*IFFPC*,5X, *NSPADD* ,4X»*MASADD*, 

1 3X,*IRIT ALL*// 61 10 I 

KM 1 =K— 1 

IFCICBT.EO.il KASE=KASESAV 
CALL ZERQMIA,K,K, MAX, MAX I 
CALL ZEROMCB.K.K, MAX, MAX) 

READ 1040, (XI II, 1=1, K) 

PEAD 1040, (SCI), 1=1, KM1) 

READ 1040, (RICH, 1 = 1, K) 

IF (L0C.EQ.2) GO TO 1098 

WR ITEC6, 1 102) ( J » X( Jl , SC J) ,RI( J) ,J=l,KMl) 

WP ITEC6, 1101) K,X(K),RICK) 

PRINT 1 102, (J, XCJ), St JI.RICJ) ,J«1,KM1| 

PUNT 1101, KtXCK), RICK) 

GO TO 1099 

1096 WRITEC6 , 1100) C J ,X( J) ,SC J) »RI C J) ,J=1,KM1) 

WRITEC6, 1101) K,XCK),RICK) 

PRINT l 100, CJ, XCJ), SC J),RICJ) ,J=l,KMl) 

PRINT 1101, K,X(K), RICK) 

1100 FORMAT ( ///3X,*J*,7X,*X( J) * , 1 IX ,*G J C J )* ,10X , *R I C J ) *, // C I4,3E16.8) ) 

1101 F0RMATCI4,E16.8»16X,E16.8) 

1102 FOPMATC///3X,*J*,7X,*XC J I *, 1 1 X, *AE( J ) *, 10 X , *DM C J ) * ,//( I 4, 3E16. 8) ) 
C FORM FREE-FREE STIFFNESS MATRIX 


1099 

CO 121 

L“ 

1, KM1 

121 

Ed) 

= 1 

.0/ 

ixa+ii-xiL) i 


DO 122 

J* 

It KM 1 

122 

SI J) 

*S ( J 1 

♦EC J) 


A(l» 

11 

■51 

11 


Ad, 

21 

= -S 

111 


AIK, 

K- 

1) = 

-SIKMl) 


AIK, 

K | 

■ SI 

KM 1 1 
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KTB*0 

DO 1 23 J*2»KMi 
KOKTB+J 

AtKD*KO-U=-St J-ll 
AIKOfKD>*S(J-l)+St J) 

123 A(KO*KD+l)=-St J) 

IF (N SPADO. EO. O I GO TO 124 

READ 10 60 * < l P ( J » 1 ) * I R t J * 2 ) , E ( J ) * J = 1 r N SP AD D ) 

WRITE! 6 * 1C61 ) ( J * I R ( J * i i *1 R C J* 2) »E ( J) » J-l* NSPAOOl 
DO 124 JJ-itNSPADD 
NRGW=lRUJ*li 
NCOL*!RI JJ,2) 

AC NROW, NCOL ) ® At NROW, MCQLi +EC J J ) 

IFCNROW.NE.NCOL) A! NCOL* NROW ) » AC NROW, NCOL I 

124 CONTINUE 

IF C ICBT.EO.U GO TO 125 
IF C I R IT ALL .EO.O I GO TO 125 

HMTX Ml* 10H FREE-FRE % HMTXC2)=10HE TORSION 
HMTX ( 3 ) *1 OH STIFFNESS * HMTX (41* 10HMATRI X 
CALL WMTXCtA*K*K,MAX*MAX) 

125 CONTINUE 
IfCICBT.NE.il GO TO 119 
WRITE 19 I ( ( At I , J I , J®1,K I f I ® i * K ) 

C MLLTIPLY FREE-FREE STIFFNESS MATRIX BY 2.0 IF ISYM = 1 
119 IF C ISYM. EO.O) GO TO 123 
PEWINO 8 

WRITEC8M (A(I f 4). 1=1 f K) ,I*i,K) 

DO 129 1*1, K 
DO 129 J* l,K 
129 AC I? J! = 2.0*At It J) 

128 CONTINUE 

IFC1CBT.NE.U GO TO 1292 

C FORM FREE-FREE COUPLED BENDING-TORSION STIFFNESS MATRIX 
KPNPK=KPN+K S KPNP1=KPN*1 
DC 1293 I = KPNP 1 1 KPNPK 
II® I -KPN 

DO 1293 J®KPNP 1 , KPNPK 
J J= J-KPN 

1293 AAC I t J I *A< 1 1 * J J I 

C WRITE OROER AND FREE-FREE COUPLED 8ENDING-T0RSI0N STIFFNESS MATRIX 
C (BY ROWS) ONTO TAPE11* 1 R EC CRD 

WRITE! 11) KPNPK f UAA( I ? J ) t J = 1 ? KPNPK ) ,I*1,KPN*>K> 

GO TC 1294 

C WRITE ORDEP AND FREE-FREE STIFFNESS MATRIX (BY ROWS) ON 
C TAPE 11* i RECORD 
1292 WRITE! 11 1 K* 1 1 A| I * J) » U=i ,K } ,1 ® 1 * K) 

1294 IFC ISYM. EO.O) GO TO 1291 
REWIND 8 

READ (8) ((At I* J) , J*i,K), I = 1»K) 

1291 CONTINUE 

DC 13 J* 1 ? K 
13 eijfj)-pi(j) 

IF ( MASADD. EQ.O) GO TO 126 

READ 1060* ( IP ( Jrllf IRC J* 2)*E( J) « J * 1, MASADD ) 

DO 126 J*1 * MASADD 
KROW=IR( J,l) 

NCCL® I R C J * 2 ) 

BCNROW* NCOL )® BC NROW, NCOL) +E4 J I 
IF (NROW .NE.NCOL ) BC NCOL* NROW ) -BC NROWtNCOLI 
126 CONTINUE 


-a 
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IF! ICBT.NE.l) r.O TO 1259 
WHITE (101 1 1 HI I » J ) »J*l »K ) » 1 = 1 * K ) 

C MULTIPLY FREE-FREE MASS MATRIX BY 2.0 IF ISYM » l 
1259 IF { ISYM.EO.O) GO TO 1260 
REWIND 8 

WP I TEI8 ) 1 1 Bt I , J ) » J*l» K ) »I *1, K ) 

DC 1262 1*1 *K 
Dr 1262 J=1*K 
1262 B( l, J)*2.0*B( 1 1 J 1 
126C IFI ICBT.NE.l) GO TO 1261 
C FCPM FREE-FREE COUPLED BENDING-TORSION MASS MATRIX 
DO 1 264 I *KPNP1 , KPNPK 
II*I-KPN 

DO 126 A J=KPNP l , KPNPK 
JJ= J-KPN 

1264 BBI I ,J)*B( 1 1, JJ J 
READ 1020.MASCBT 

READ 1060,1 IR<J,1),IR! J,2 )»E( J) r J=l,MASC8Tl 
IFI ISYM.EO.OI GO TO 1265 
CO 1266 J = l * MASCBT 

1266 E(J)*2*E(J) 

1265 CO 127 J*l, MASCBT 
NROW*IP I J * 1 ) 

NCOL *IR I J ,2 ) 

BB I NROW , NCOL ) =BB ( NROW , NCOU +E I J ) 

127 8BI NCOL , NPOW )*BB (NROW » NCOL ) 

C WPITE ORDER AND FREE-FREE COUPLED BENDING-TORSION MASS MATRIX 
C I BY ROWS) ONTO TAPE12, l RECORD 

WRITE! 12) KPNPK, I (BBI I , J) ,J*1, KPNPK ), 1*1, KPNPK > 

REWIND 10 

CALL ZEROMI BB» KPNPK* KPNPK » MAX T2,MAXT 2 ) 

PE AD (10 H (BBI I,J) , J*I, KPN), 1 = 1, KPN) 

READ (10 H (BBI I, J), J*KPNP1,KPNPKI, I*KPNP1, KPNPK ) 

DO 1267 J*l, MASCBT 

IF( ISYM. EC. 1) E ( J )*. 5*E I J ) 

NP. OW = lR I J * 1 ) 

NCOL *IR ( J , 2) 

BB(NROW , NCOL )=BB INROW, NCOL )*E I J ) 

1267 BBI NCOL , NROW ) *6 6 1 NROW, NCOL ) 

GC TO 1268 

C WRITE OPDER AND FREE-FREE MASS MATRIX I BY ROWS) ON TAPE 12, 1 RECORD 
1261 WRITE! 12)K,((B( I , J ) , J* 1 ,K ) , 1= l ,K) 

1268 IFI ISYM.EO.OI GO TO 1263 
RFWIND 8 

READ (8) I I B (I , J ) , J*1,K )* I* l,K) 

1263 REWIND 3 

IFI IEXPAND.EQ.l. ANO. ICBT.NE.l) GO TO 1270 
IF! I EXPAND .EQ.O .AND. ICBT.NE.l ) 1275,1276 

1275 CALL ZEROMI V,KK »KK,MAXT2»MAXT2I 
CO 1075 1=1, KK 

J=KK+1-I 
1075 VII,J)*1.0 

KPN=KK * K*KK 
GO TO 2051 

C APPIY BOUNDARY CONDITIONS TO FREE-FREE MASS AND STIFFNESS MATRICES 

1276 REWIND 9 

PE AC (9 ) ( I AAI I , J ) , J=1 , KPN) , I *1 ,KPN ) 

READ (9) 1 1 AA! I , J ) , J*KPNP1» KPNPK) , I *KPNP1, KPNPK ) 


J 
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IF< IEXPAN0.EQ.1) GO TO 12 77 

CALL ZeR0M(V f KKSAV,KKSAV,HAXT2 t MAXT2> 

00 1278 I = l » KKSA V 
J=KK SAV+1- I 

1278 V( I » J)=i.O 

KPN=KKS AV $ K*KKSA V 
GC TO 2051 

1277 IF< CFFPC*EQ.i) GO TO 1269 
IB A* 1 $ IBC=1 

IFUFFPC.GE.2) I BA=2 
I F C I FFPC • EQ*3 ) I9C*2 
REWIND 3 

Jl-KP+I BC S J2=KPN+ I BC 

WRITE? 3) ( ( AA( I, J) ,J*IBA,KP), 1*IBA,KP ) • ( ( AA( I, J) , J=Jl , KPN) , 

1 I=I8A»KP), < (AA(I, J ), J=J2,KPNPK) ,I = IBA,KP>, HAA( I, J) , 

2 J= I BA ,KP ) , I = Jl , KPN It (( AA(I V J),J = J1,KPN),I = J1,KPN), 

3 ((AM t,J),J=J2,KPNPK), l=J l , KPN ) , ( ( A A( I , J > , J= IBA ,KP > , 

A 1 = J2 • KPNPK ) v (CAAfl , J ) , J* Jl » KPN ) * I * J2, KPNPK ) , 

5 (( AA( I,J),J*J2,KPNPK>, I*J2tKPNPKI 

REWIND 10 

WRITEMOHf BBC I , J > , J= I8A,KP ) , I*IBA,KP) ,( C BB (I , J), J=Jl,KPN), 

1 I- IBA * KP ) t ( I8BI It J )t J= J2, KPNPK ), I* I BA, KP > , ( < BBC I , J ) , 

2 J=IBA,KP) , I = Jl , KPN ) , ((BBC I t J ) , J* Ji , KPN ) , 1= Jl, KPN) , 

3 ( ( BB( I , J ) , J= J2 , KPNPK », I=Jl f KPN), ( I BB (I , J ) , J = I BA ,KP ) , 

A t=J2 , KPNPK ) , ((BBC I , J), J=Jl,KPN ) * I=J2, KPNPK ), 

5 ( C BB t I,J),J=J2, KPNPK), I*J2,KPNPK) 

IFCIBA.EQ.2) KP =KP— i 
IF( I BC o EQ *2 ) NP=NP-1 
KPN=KP+NP $ KPP 1=KP+1 
KPNP 1=KPN+1 $ KPNPK»KPN*NP 

REWIND 3 

READ (3) U AA1I , J) , J=l,KP),I=l,K P), I! AA( I * J ) , J=KPP1 f KPN ) , I = 1 ,KP ) t 

1 (( AA( I ,J),J=KPNP I, KPNPK) , 1*1, KP) , ( IAAI I , Jl , J*1,KP ), 

2 I =KPP 1 ? KPN) , ( ( AA ( 1 1 J ) , Js KP PI ,KPN ) , l=KPPi,KPN>, 

3 ( ( AA( I t J) , J=KPNP1, KPNPK) t I =KPP1 , KPN ) t ( ( AA ( I , J I , J s 1 , KP ) , 

4 I=KPN PI, KPNPK) , ( (AA( I, J) » J=KPPi , KPN ) t I =KPNP 1 , KPNPK) t 

5 ( ( AA ( I ,J) ,J=KPNP1, KPNPK) f I =KPNPi , KPNPK ) 

REWIND 10 

READ (101 { € BBC 1, J) f J*l ,KP) ,I=i,KP) , ( ( BB! I , J ) t J*KPP 1 , KPN ) , 1 « l , KP ) , 

1 ( ( BB ( I t J ) , J=KPNP 1, KPNPK) , I *i , KP) , ( ( BB (I , J ) » J=i ,KP > , 

2 I«KPP 1 1 KPN) , ( (8B( I, J ), J=KPP1,KPN ) , I =KPPl , KPN) , 

3 ((BBC I « J) ,J* KPNP it KPNPK) , I*KPPt,K PM, ( (BBC 1 1 J ) t J* ItKP ) f 

4 I-KPNPl , KPNPK) ,( (BBC I, Jl , J»K PPi, KPN > , l =KPNP1 , KPNPK ) , 

5 ((BBC! ,J) , J= KPNP 1, KPNPK) , I *KPNPi , KPNPK ) 

C WRITE ORDER AND FINAL MASS AND STIFFNESS MATRICES ONTO TAPE 4 
1269 REWIND 4 

WRITE(4) KPNPK , ( (88< I , J) , J*l, KPNPK ), 1*1, KPNPK), CIAAC I, J), 

1 J=i, KPNPK) ,1=1, KPNPK ) 

CALL ALLEIGt AA,BB,KPN, MAXT2, M AX,M AX2 ,K »N, C, IPIVOT, INDEX, P, 

1 C !NVBT,BCINVBT,EM:.,EIGV,V»EV,R ,KPR, ICBT) 

GC TC(205 ,206,206) IFFPC 

C ACC RIGID BODY TRANSLATION MODE TO MODAL MATRIX 

206 N*KPN/3 
K = K* 1 

DO 2C7 1=1, N 

207 V ( I , K ) * 1 • 0 

NT 2= 2*N $ J =N 

CC 208 1=1, NT2 
J = J*1 

2C8 V ( J , K)= 0* 0 


4 
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If I IFFPC.EQ.2) GO TO 205 

C ADD RIGID BOOT ROTATIONAL MOOE TO MODAL MATRIX 
K = K + 1 $ J=N $ JJ=NT 2 

cr 209 I = 1 ,N 
J=J + 1 * JJ=JJ+1 

V( I,K)=XI II 
VCJ,K)=1.0 
209 VI J J >K) =0 .0 

C AOO RIGID BODY TORSION MODE TO MODAL MATRIX 
K*K*1 

DO 210 1*1, NT2 
2 1C VI I,K)=0.0 
J= NT 2 

CC 211 1*1, N 
J=J*1 

211 V(J,K)*1.0 
205 CONTINUE 
GC TO 2051 
CUTOLT 1184 

127C IBA* 1 

IF I IFFPC.E0.3I IBA=2 

WPITEI3)UAU,J),J=IBA,K) , I*IBA,K» , II Bt I , J > , J-IBA ,K> , I*IBA, K> 

IFl IFFPC.EQ.3) K=K— 1 

HMTX ( 1 ) * 10H K AFTER * HMTX 12 1* 10HAPPLIC AT 10 
HMTX I 3 I = 10HN OF BDRY. $ HMT XI 4) * 10HC0ND . 

Wp I TEI6 , 1200 IHMTX, K 
1200 FORMAT! ////12A 10// 5X , *K * *,131 
REWIND 3 
KPN* K 

READ (3 1 1 1 A( I * J I ,J*1,KI, I* 1,K) ,((B(I,J),J*1,KI,I*1,KI 
HMTX III =10H FINAL ST * HMT X 12) =10HIFFNESS MA 
HMTX 1 3) = 10HTP I X $ HMT XI 41 *10H 

CALL WMTXCI A,K,K,MAX, MAX) 

HMT X ( 1 ) =10H FINAL MA $ HMTX 1 2) *10HSS MATRIX 
HMTX 13) =10H t HMT XI 4) * 10H 

CALL WMTXC I B , K , K , MAX , MAX I 
REWIND 4 

C WRITE CPDER AND FINAL MASS ANO STIFFNESS MATRICES ON TAPE 4, l RECORD 
WR1TE14)KPN»IIBII,J),J=1»KPN) , I *1 »KPN > , 1 1 A l I , J ) ,J*1 »KPN ) , I *1, KPN ) 

C CALL EIGENVALUE SUBROUTINE 

CALL AL LEIG(AA,BB, KPN, M AX T2 ,MAX,M AX2 , K,N, C , I PIVOT, INDEX, P, 

1 C INVBT,BCINV8T,EM,EIGV,V,EV,R,KPR,ICBT) 

GO TCI 204*204 , 202 1 IFF PC 

C ACC RIGID BODY TORSION OR AXIAL MODE TO MODAL MATRIX 

202 K=K+ 1 

00 203 1=1, K 

203 V(I,K)*1.0 
2C4 CONTINUE 

C WRITE ORDER AND MODES I BY COLUMNS) ON TAPE 20, 2 RECORDS 
2051 WRITEI20) KPN.K 

WRITEI20) (I VI I, J) ,1 = 1, KPN) ,J*1,K) 
IFINBLDCK.EO.NBLKS.ANO.NBLKS.EQ.l) GO TO 1 
GO TC 200 


J 



******************************** 
* SPRING OR RIGID BODY ELEMENT * 
******************************** 


130 CALL ZEROMf At KK ,KK , MAX, MAX) 

CALL ZEROM(B,KK,KK,MAX,NAX) 

IE ( MK.EQ.O ) GO TO 131 
PRINT 1301 

WP I TE< 6 , 1301 ) 

1301 FORMAT! 1H //IX,* SPRING ELEMENT - STIFFNESS MATRIX WILL BE READ 
1FP0M CARDS. MASS MATRIX IS NULL.*) 

RE AO 1040, ((ATI , J ) , J* 1 , KK ) ,1*1 ,KK ) 

C MULTIPLY FREE-FREE STIFFNESS MATRIX BY 2.0 IF ISYM = 1 
IF ( I SYM.EO.O) GO TO 131 
REWIND 8 

WR ITE(8 ) ( (ACT , J) ,J*1 , KK), 1=1, KK) 

DO 135 1*1, KK 
DC 135 J=1,KK 

135 A( I » J) = 2- 0*AI I » J) 

131 WRITE! li)KK,((A( I, J) , J=l,KK), 1*1»KK) 

IF I MM.EQ.'V) GC TO 132 

PRINT 1302 
WR I T E (6 , 1302 ) 

1302 FORMATCIH //IX,* RIGID BODY ELEMENT - MASS MATRIX WILL BE READ F 
1RCM CARDS. STIFFNESS MATRIX IS NULL.*) 

READ 10 4f , U 8 C I , J ) , J* 1 , KK ) , I * 1 , KK ) 

C MULTIPLY FREE-FREE MASS MATRIX BY 2.0 IF ISYM * l 
IF C I SYM.EO.O) GO TO 132 
REWINO 9 

WP I T E ( 9 ) ! ( D.I I , J ) , J* 1 ,KK ) , I = l , KK ) 

DC 136 1*1 , KK 
CO 136 J* I, KK 

136 Bi I, J)-2.C*B1I,J) 

132 WRITE! 12) KK, C (BC I, J.) , J = 1,KK) ,1 = 1, KK) 

IFCMK.NE.O.OR.MM.NE.O) GO TO 133 
PRINT 1303 

WRIT EC 6, 1303) 

13C 3 FORMATCIH //IX,* MASS AND STIFFNESS MATRICES ARE BOTH NULL *) 

133 CONTINUE 

HMTX(l)=iOH FINAL ST $ HMTXC2)*10HIFFNESS M.A 
HMTXC3 ) *10HTP IX % HMT X C 4) *10H 

CALI WMTXCC A,KK,KK,MAX, MAX) 

RMTX (1 ) “10H FINAL MA $ MMTX12I *10HSS MATRIX 
HMTXC3) *10H $ HMTXC 4) *10H 

CALL WMTXCCB,KK, KK , MAX , MAX) 

CALL ZEROMC V,KK ,KK,MAXT2, MAXT 2) 

CO 134 1*1 ,KK 
J«KK+1— I 

134 VthJMi.O 

HMTX (1 ) = 1 CH FINAL MO S HMT X ( 2 ) =10HDAL MATRIX 
HMTXC3 ) *i r H $ HMTXC 4) “LOH 

CALL WMTXCC V, KK ,KK, MAXT 2, MAXT 2) 

WP I TEC 20) KK , KK 

WRITE (20) (<V( I,J),I SS 1,KK),J*1,KK) 

IF ( NBLOCK .EO.NBLKS .AND. NBLKS .EQ.l ) GO TO 1 
2CC CONTINUE 
8998 WRITE (6,8997 ) 

PRINT 8997 
END 
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SUBROUTINE ALLE IG( AA , 8B ,K PN, M AXT2 ,MAX, MAX2 ,K,N, Ct I PI VOT , INDEX, P, 
i CINV8T, BCIN V8T, £M,E IGV, V ,€V,R ,KPR , ICBT) 

DIMENSION AA(MAXT2,MAXT2),B8!MAXT2,MAXT2i,C!MAX,MAXl, IPIVOTCMAXl, 

1 INDEX! MAX* WAX2) ,P< MAX I , CINVBTIMAX, MAXI 1 8 CINVBT! MAX, MAX ) , 

2 EM! MAXT2 ),EIGV! MAXT 2! »V (MAXT2,WAXT2I ,EV(MAXT2),P IMAXT2) 
COMMON/SAME/HMTXU2),FCON,KASE, IFFPCjIPITALL 

REWIND 4 

C READ ORDER AND MASS AND STIFFNESS MATRICES FROM TAPE 4 BY ROWS 
READ 14 > K PN* ( !8&l I » J ) * J*i , KPN ) , I* l, KPN 1,(1 A A! I , J) ,J*l,KPN) , 

I 1=1, KPN) 

GO TO I 210, 220, 230,220, 230) ,KASE 
C SOLVE FOP EIGENVALUES ANO EIGENVECTORS OF MASS MATRIX 

230 CALL JACTVlKPN f MAXT2,I,B8,EM,V,0UMl,DUM2,DUM3,DUM4,IERR) 

IF! IEPR.EQ.il GO TO 1500 

C TEST FOR NUMBER OF FINITE EIGENVALUES 
CC 10 J = 2» KPN 
IJ=J-l 

IF! EMIJ) • IE .0 *0 ) GO TO XI 

IF (EM! I JI/EM! J ) .GE. 1000000.0 1 GO TO 11 

IF(J.EQ.KPN) IJ=KPN 

10 CONTINUE 

11 I^FMEV=IJ 

C REWIND TAPE 4 AND WRITE COLUMNS CF MASS VECTOR MATRIX ON TAPE 4 
C REWIND TAPE 9 AND WRITE ROWS OF MASS VECTOR MATRIX ON TAPE 9 

231 REWIND 4 
REWIND 9 

or 20 J*i »KPN 
WRITE19HVC J, I), 1=1, KPN) 

20 WRIT EI4I (V! 1 t J I , 1*1, <PN ) 

C POST— MUtTI PLY STIFFNESS MATRIX BY MASS VECTOR MATRIX AND STORE IN V 
REWIND 4 
DC 3C J 3 *! , KPN 

C REAC COLUMN OF MASS VECTOR MATRIX 
READ (4) IP 1 1 ) » I" I ,KPN ) 
cr 3C 1*1, KPN 
VU,J)*0.0 
DC 30 I J= I , KPN 

30 V! I,J) = V( 1 , J ) +AA! I,IJI*R( I J) 

C COMPUTE V TRANSPOSE * ! AA * V) 

REWIND 4 
CC 40 1=1, KPN 

C READ COLUMNS OF MASS VECTOR MATRIX AS RCWS OF VECTOR TRANSPOSE 
RE AO 14 1 f P U I , J= l, KPN I 
cr 40 J= 1 , KPN 
AA! I ,J)=0.0 
00 40 IJ=l,KPN 

40 AA ! I ,J) =AA( l , J) +R( I J) *Vt I J* J) 

K = NFMEV 
N = K PN— NFMEV 

C IF THE NUMBER OF FINITE MASS EIGENVALUES (NFMEV) IS EQUAL TO THE 
C CRDEP OF THE MASS MATRIX BB, BYPASS PARTITIONING OF THE STIFFNESS 
C MATRIX AA 

IF I N «EQ .0 ) GO Tn 220 
210 KPi=K+l 

STIFFNESS MATRIX AA WILL BE PARTIONED AS FOLLOWS C A 8) 

C BT C ) 


C 

c 

C 


REWIND 4 


WHERE A«(K*K), B=IK*N), BT!N*K), C(N*NI 
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C STORE M ATR IX A ON TAPE 4 BY COLUMNS, L RECORD 
WPITEI4l((AA(I,J),I=l,K),J=l,K) 

REWIND 8 

C STORE MATRIX C ON TAPE 8 BY COLUMNS, l RECORD 
WRITEI8H CAA( I, J I , 1*<P1 ,KPN) , J=KP1,KPN> 

C STORE MATRIX B ON TAPE 8 BY ROWS, K RECOROS 
DO 50 1*1, K 

5C WPITE(8)iAA(I,J) » J*KPl»KPN I 
C READ MATRIX C FROM TAPE 8 AND COMPUTE INVERSE OF C 
REWIND 8 

READ (8) MCI I * J) , l*l,N) , J=1,N) 

CALL MATINVIC,N,Bl,0,DET, I PIVOT ,1 NDEX,MAX , I SCALE) 

C COMPUTE C INVERSE * 8 TRANSPOSE 
CO 60 J*1,K 

C RE AC ROW OF B AS COLUMN OF B TRANSPOSE 
READ (8) I P 1 1 1 , 1 = 1 ,N) 

DO 60 1*1, N 
CINVBT ( I , J 1=0.0 
DO 60 1 J = 1 » N 

60 CINVBTJ I , J )=C INVBT I I , J ) +C ( I , I J )*P I I J ) 

REHIND 8 

C TEE NEXT STATEMENT IS A DUMMY READ TO POSITION TAPE 8 
PE AC (81 

C COMPUTE B * (C INVERSE * B TRANSPOSE I 
DO 70 1*1, K 
C READ ROE OF B 

REAC (8) I Pl J I , J* 1 »N ) 

CO 70 J*l,K 
BC INVBT ( I , J )=0.0 
DO 70 l J* 1,N 

70 BC INVBT ( I * J) *BCI NVBTI I , J) ♦PH J)*C INVBT (I J , J I 
REWIND 8 

C STORE C INVERSE * B TRANSPOSE ON TAPE 8 BY COLUMNS, l RECORO 
WRITE(8M (CINVBT(I,J),I*l,NI, J*1,KI 
REWIND 4 

C READ MATRIX A FROM TAPE 4 

REAC (4) ((AA( I»J)fl=l*K)»J*l,K) 

C COMPUTE A - (B * CINV * BT) 

IF(KASE.NE.l) GO TO 220 
DO 212 1=1, X 
212 EMI I l=B8t I , I I 
220 IK=K 

IF(KASE.E0.2.0P.KASE.E0.4) K= KPN 
IF(KASE.E0.2.0R.KASE.E0.4) N=0 
IFIKASE.E0.2.0R.KASE.EQ.4I 222,225 

222 DO 223 1*1, K 

223 EM ( I l-BBl 1,1) 

225 DO 81 1*1 , K 

EMII)=1.0/S0RT(EM(U) 

IF(N.EO.O) GO TO 81 
DO 8C J*1,K 

80 AA(I,J)*AA(I,J )-BC INVBTII.J) 

81 CONTINUE 

C PRE- AND POST-MULTIPLY STIFFNESS MATRIX BY 1 . O/SORTI MASS ) 

DO 90 1*1, K 
DO 90 J*1,K 

90 AA( l , J) *EM( I I *AA( I,JI 
DO 100 J*l,K 
CO 100 1*1, K 

ICC AA(I,J)=AA(I,U)*EM(J) 


j 
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CALL JACT V(K y MAXT2, 1 , AA , E IGV, V f DU Ml , DUM2 , DUM3, 0UM4 ,NERR I 
IF ( NERR.NE . 0 ) GO TO 1500 
CALL FREQCEIGV, AA,K,MAXT2) 

C PRE-MULTIPLY VECTOR MATRIX BY 1 . O/SQRTI MASS) 

00 110 1 = 1, K 
CO 110 J*1,K 
110 VI I * Jl®EM( I )*V ( It J I 
REWIND 4 

C STORE X SUB 1 VECTORS ON TAPE 4 BY COLUMNS, K RECORDS 
CO 115 J = 1,K 

115 WRITE! 4) ( VC I « J) 1 1= 1, K ) 

IF(N.EQ.O) GO TO 144 
REWIND 8 

C REAC C INVERSE * B TRANSPOSE FROM TAPE 8 
READ <8)1 C A A ( I ,J),I=i,N) ,J=1,K J 
REWIND 4 

C MULTIPLY 1C INVERSE ♦ B TRANSPOSE) BY X SUB 1 VECTOR MATRIX 
DO 120 J - 1 » K 

C READ COLUMN OF X SUB 1 MATRIX FROM TAPE 4 
READ (41 ( P C Ilf 1=1 »K) 

DO 120 I* It N 

vi:i»ji*o.9 
DO 120 1J=1,K 

120 V(It J1*VC I » J ) + AAC 1 9 I J )*P( IJ) 

C X SUB 2 VECTOR MATRIX * - VECTOR MATRIX JUST COMPUTED 
DO 125 1=1, N 
DO 125 J=1,K 
125 Vf I,J)=-VCI,J) 

C STORE X SUB 2 VECTOR MATRIX CN TAPE 4 BY ROWS, 1 RECORD 
WRITEI4) ( (7(1 , J) , J*i, K) , I = l , N I 

C REWINO TAPE 4, THEN READ X SUB 1 VECTORS INTO FIRST K ROWS OF AA AND 
C READ X SUB 2 VECTORS INTO (K+l) TO KPN ROWS OF A A 

C TFE AA MATRIX IS NOW (K»N * K> 

144 REWIND 4 

DO 145 J* 1,K 

145 READ(4)(AA(l, J}» I = 1, <1 

IF ( N .NE .0 ) RE AD 14 H ( AA (I , J ) , J= 1 f K ) , I *KPi , KPN) 

IF(KASE.LE.2.0P .KASE.EQ.4) GO TO 150 
C PC ST— MULTI PL Y MASS VECTOR MATRIX BY AA MATRIX 
PE WIND 9 
CC 146 1=1, KPN 

C READ ROW OF MASS VECTOR MATRIX 
READ (9) ( R ( J ) » J= 1 * KPN ) 

CO 146 J=i,K 
VC I, J)*0.0 
CC 146 I J=l ,KPN 

146 VI I , J) = V( I,J)*R( I J ) * A A ( IJ, J) 

150 CONTINUE 

I F ( K ASE .1 E . 2 .OR . KA SE . E Q .4 ) 15 1 , 160 

151 DO 155 1*1, KPN 
DO 155 J=i,K 

155 VU, J) = AA( I,J) 

160 CONTINUE 

IF ( N .EQ .0 .AND.KASE.EQ. 3 1 KASE=2 

IFUFFPC.EO.il GO TO 170 

GO TO ( 161, 162, 161, 163, 163), KASE 

161 KPR = KPN 
KPN = K 

GO TO 169 


A 
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162 K* I K 
KPR = KPN 
GC TO 169 

163 IF ( I FFPC *E0»2 > GO TO 170 
IFFPC=2 

KPP* KPN 

169 CALL ADDBACMV f ElGV,K,KPN,KPR t MAXT2»ICBT| 
IF(KASE.EQ.4.0R*KASe.E9,51 IFfPC=3 

K*KP K 
KPN* KPR 

170 HMTX (i) * 10H FINAL MO $ HMT Xi 2 ) * 10HDAL MATRIX 

HM T X < 3 1 * 1 OH $ HMT X (4) *10 H 

CALL WMTXCI V* KPN »MAXT 2f MAXT2) 

1 5CC IF C I ERR. »EQ. I ) WRlTEl6,150n 
IFINERR .NF.Ol WR ITEC 6 , i 532 .1 

1501 FORM AT ( //* ERROR RETURN FROM JACTV - FIRST CALL - MASS *} 

1502 FORMAT!//* ERROR RETURN FROM JACTV * SECOND CALL - STIFFNESS *> 
RETURN 

END 

SUBROUT INE ADC BACK ( V » E » K» KPNt KPR » MAXT2? IGBT) 

DIMENSION VIMAXT2* MAX T2 )»E(MAXT2) 

COMMCN/ S AME/HMTX ( 12 ) t FCON * KAS E» IF FPC , IRIT ALL 
CALL ZER0 M (E,KPNtltMAXT2f 1) 

REWIND 4 

IFUFFPC.E0.3I GO TO 9 

WP1TEI4H E( Jit .J* If KPN) • ( ( V( I » J) , J» i , KPN*, I « 1 f KPR 1 
KPR* KPR +.1 
GO TO 20 

9 IF I i CBT *NE«t > GO TO 10 

KL M *KPN/3 % KLMP1*KLM + 1 
KLMT 2*2 *KLM $ KLMT2P 1 =KLMT2+1 

WRITEI4) C EC JI t J* It KPN), ii VI It Jl » J * i t KP Nl » I = l » KLM) , C E U > t J* It KPN ) t 

1 € C VC I » J ) y J* 1 1 K PN ) • I * KL MP 1 , KLMT 2 )«(E1J!«J-ltKPNIt 

2 LC VI 1 1 J ) 9 J* i » KPN 1 » I*KLMT 2P 1 1 KPN I 
KPR* KPR +3 

GO TO 20 
1C KP i*K+l 

KRITEI4 M EC J ) » J* 1 1 KPN ) 9 ((VflyJI 9 J*1 1 KPN) 9 1 *1 tK ) 9 
1 C E ( J 1 f J = l » KPN ! , I < V 1 1 9 J » , J * 1 f K PN ) » l *K P 1 f KP R I 

K FR*KPP. + 2 
20 REWIND 4 

P E AD 14 ) C ( V ( I , J ) , J= 1 , KPN) » I = 1 , KPR ) 

RETURN 

END 

SUBROUTINE ZERQM ( A, M f L, MMAX f L MAX) 

DIMENSION ACMMAXtLMAX) 

00 10 1*19* 

CC 10 J=l,l 

10 ACI»JJ=0*C 
RETURN 
END 


4 
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SUBROUTINE WMTXC(A,NR,NC, MAXR , MAXCI 

C NP-fcOWS OF A, NC*COL$ OF A, MAXR=MAX ROWS OF A f NAXOMAX COLS OF A 
DIMENSION ACMAXR t MAXC I 

COMMON/ SAME/HMTXC 121, FCON, K AS E, IFFPC, IR1T ALL 
KE*0 

KSFT-NC/8 

KLEF T*MOD< NC , 8 1 

IF (KLEFT .NE*0 I KSET-KSET+ 1 

CO 10 KT= I , KSET 

KB=K E+l 

KE*KE+8 

IF(KT.EQ.KSET) KE=NC 

WR I T E < 6 , 5 00 1 ) HM IX , ( J , J*K B, KE I 

CO 10 1*1, NR 

1C WRITE<6,5002) I , ( A ( ! , J ) , J *KB , KE I 

5001 FORMAT ( 1H l// 12A 1 0/// / 10H ROW COL, 14, 7« 11X14)1 

5002 FORMAT! 14, 8E 15. 7) 

RETURN 

END 


SLBR OUT IN E FP EO ( E , A, K, MAX ) 

DIMENSION E I MAX I , A ( MAX, MA X) 

COMMON/ SAME/ HMTX ( 12) , FCON »KASE, IF FPC , IP IT ALL 
CO 10 I*1,K 

a< i,ii*e< n 

AC 1 , 21 * FCON* EC II 

AC 1 , 3) “SO PTC ABS (AC 1,2) ) ) 

10 AC 1 ,4)*A( 1,31/6.28318530717959 

PRINT 5014, CHMTXCJJ ,J*5,12) ,FCON,( I, (AC I, J) , J*l,4), 1 = 1, K ) 

WR I TEC 6., 5014 M HMTX < J ) , J*5 , 12) , FCON, II,(A(I,J), J*1 , 4) » 1*1 ,K ) 

5014 FORMATC 1H1//1X8A10//7H FCON * , E22 . 14/ /4X1HJ9X9HLAMB0A C JU4X12H0MEG 
1A SO ( J ) 1 4X8H0M EGA C J ) 14X1 3HFREQ . ( J ) , CPS/34X 18HCFCCN * LAM BOA C Jill 
22X6HCRE AL ) // C 15 , 4E24. 14 1 1 
RETURN 
END 
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PROGRAM MOOALC ( l NPUT * OUTPUT * T AP E2 0, T AP E2, TAPE3,TAPE4, TAPE6, 
1 TA°Eii,TAPE12»TAPE8,TAPE9l 


************************************************************************ 


* * 

* PROGRAM MOOALC FORMULATES THE EIGENVALUE PROBLEM FOR * 

* THE DETERMINATION OF THE COUPLED MODES AND FREQUENCIES * 

* OF THE COMPLETE (ASSEMBLED) STRUCTURE. * 

* * 


*************************************** ********************************* 


DIMENSION A{ 26? 26) ,U( 68,68) ,C( 10, 68 ) ,D (10 , 68 ) , OTD ( 68 , 68 ) , 

1 E I GV( 68) ,BB<63,68) , BETA ( 68 ,68) , BK (68 , 68 )»BM(68*68), 

2 R ( 6 8 ) 

EQUIVALENCE <BKU, i) , BM ( 1 * 1 ) , U ( l , 11 f C(I*1 I ,OTDU , l) » BETA! 1 , L ) ) , 
1 I D I 1 » 1 ) Y 8B ( I » 1 ) » A U 9 1 )) f ( E IG V (1) »R (1 ) ) 

irtTEutk brtSUO) tUUH lO) ,SMt40) , ISTA1 ItU) 

CUMMun HMT X (12) 


LD SPECIFIES THE SOURCE OF THE MOOAL DATA FOR THE SUBSYSTEMS 
LD - 1 - MODAL DATA ON MAGNETIC TAPE AND COPIED ONTC TAPE 20 
VIA CONTROL CARDS 
LD=2 - MODAL DATA READ FROM CARDS 
LD-3 - MODAL DATA GENERATED IN PROGRAM BRANCHB 

MB - NUMBER OF SUBSYSTEMS INTO WHICH STRUCTURE IS PARTITIONED 

fsMS - TCTAL NUMBER OF SUBSYSTEM MOOE SETS 

NCECS - NUMBER OF CONSTRAINT EQUATIONS 

BMSUJ - NUMBER OF MASS STATIONS ON EACH BEAM SUBSYSTEM 
DCF ( I ) - DEGREES OF FREEDOM IN EACH MODE SET 

SMI I) - NUMBER OF CALCULATED MODES SELECTED FROM EACH MODE SET 

I ST AT I C 1 1 ) - NUMBER OF ADDITIONAL DEFLECTION SHAPES (SUCH AS 

MEASURED MODES, STATIC DEFLECTION SHAPES, OR ASSUMED 
DEFLECTION SHAPES) TO BE ADDED TO THE CALCULATED 
MODES SELECTED FROM EACH SUBSYSTEM MODE SET 

NMC - TCTAL NUMBER OF DEGREES OF FREEDOM FOR UNCOUPLED SYSTEM 

NMT - TCTAL NUMBER OF MOOES SELECTED FOR SYNTHESIS 


CN ENTRY TO THIS PROGRAM — 

TAPE 11 HAS ORDER AND FREE-FREE STIFFNESS MATRIX FOR 
EACH SUBSYSTEM 

TAPE 12 HAS ORDER AND FREE-FREE MASS MATRIX FDR EACH SUBSYSTEM 
TAPE 20 HAS ORDER AND MODES FOR EACH SUBSYSTEM 
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REAO 141 » ( HMTXC I ), 1*5,121 
141 FCRM AT ( 8A 10 1 

PEAO 1C « L D , NB » N MS » NC E QS 

10 FORMAT (20141 

READ 10 y ( BMS ( I),I=1,NB) 

REAO 10 1 f DOFi 1 > , I =1 , NMS 1 
FEAO 10 » I SM( 1 1 1 1*1 9 NMS ) 

READ 10, USTATICU >, 1=1, NMS) 

PRINT ll»LD,NB,NMS,NCEQS 
WRITE (6 , 1 1 ) LD, NBf NMS» NCEQS 

11 FORMAT! 1H1//* LD=*,I3,10X,*NB=*,I3,10X,*NMS=*,I3,10X,*NCEQS=*, 13) 
PRINT 12, (I, BMS ( I),DOFC I), SMC I )« I ST AT ICC I ) , 1=1, NB ! 

WR I TEC 6, 12) {I ,BMS( I) ,00F( I) v SMC!) 9 1 STATIC C li,I*l»NB) 

12 FORM AT ( 1H0//4X , 1HJ »9X , 6HBMSC J ) , 9X ,6HD0F ( J ) ,9X,5HSMC J) ,9X, 

1 1QHI STAT ICC J ) // C 15 1 9Xt 1 3 , 1 2X , 1 3 , 12X , 13, 1 3X , 1 3 ) ) 

IF(NB.EQ.NMS) GO TO 9 
IM*NB+l 

PRINT 13, C I »OOFC I) t SMC I ), ISTATICC I ) * I*IM f N"SI 
WFITE(6,13)( ItOQFC IltSMC I 1 , 1 STATI CU) , I* I M ,NMS ) 

13 FORMAT! C I 5 ,24X , I 3 , 12 X , I 3, 13X, 13)) 

9 CONTINUE 

IFCL0.EQ.l.OR.L0*EQ.3) GO TO 5000 
REWIND 20 

C FCP EACH SUBSYSTEM MODAL SET 
C RE AC ORDER OF MODAL MATRIX 

C REAC MOOES { BY COLUMNS) FRGM HIGHEST TO LOWEST 
C WRITE ON TAPE 20 

DO 5C50 IMltNMS 
REAO 15,K,N 

15 FCPM AT C 2 1 4 ) 

REAO 16 , (( A ( I,J ) , I = L, K) , J = 1 , N) 

16 FC PM AT 1 4E 16*8 ) 

WPITEC20)K,N 

5050 WPITEC20) 1 C A ( 1 ,J), 1*1 ,K) , J=l,N) 

50CC CONTINUE 
REWIND 20 
NMC = 0 

CC 30 I * 1 , NM S 

30 NMC*NMC+DCF< 1) 

PRINT 3 1 , NMC 

WP I T E ( 6* 31 ) N«C 

31 FORMAT ( ft * TOTAL NUMBER OF DEGREES OF FREEDCM = *,I3) 

NMT= 0 

CO 40 I = L,NMS 

4C NMT*NMT + SM| 1)^1 STATIC t I ) 

PRINT 41, NMT 
WR I T EC6 1 4 1 ) NMT 

41 FORMAT ( //* TOTAL NUMBER OF MODES EMPLOYED * *,I3) 

C FORM THE MODAL EXPANSION MATRIX FROM THE SELECTED MOCES 

NPF» 0 $ NCF*0 $ KK = 0 $ 10=0 

NCB= 1 % NR 8 = 1 
CO 100 IJ=1,NMS 
READ (20 ) K ,N 

RE AD C20 ) { (A( I,J),I=1,K) ,J = 1,N) 

IFC ISTATICC IJI.EO.O) GO TO 42 


4 
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IST*ISTATICU J> 

L>J 43 J* 1 » I ST 

43 KEAU 17,<AU, J+Ni, 4-ltK| 

17 FJkMAT (5bl4*b) 

N*N+ISTATICCIJ) 

42 NRF=NRF+K 
10*1 D*1 

NCF*NCF+SM(UJM$TATICI I J ) 

M=0 

IF ( I C. EQ. 1 ) GO TO HO 
M=KK 

110 JJ*N+NC8 

DO 120 I *NRB,NRF 
DO 120 J* 1,NMT 
120 UUtJMO.O 

DO 130 I*NR8,NRF 
CC 130 J*NCB, NCF 
13C UII, J)*A(I^ t JJ-J) 

NCB*NCB+SM( IJ)+1STATICI IJ) 

NR B* NR B+K 
KK*KK+K 
100 CONTINUE 

HMTX ( 1 1 = 1 OH MODAL EX % HMTX 1 2 )* 10HP ANSI ON MA 
HMTX I 3) * l OHTR IX U % HMTXI4)*10H 

CALL WMTXC ( U , NMC , NMT , NMC , NMC I 
C WRITE ORDER U ON TAPE 2, ONE RECORD 
C WRITE U MATRIX ON TAPE 2 BY ROWS * NMC RECORDS 
REWIND 2 
NR ITE( 2 )NMC t NMT 
DO 150 1*1 ,NMC 
15C WRITE(2M U( I v JI , J*1,NMT ) 

REWIND 2 

C WRITE U MATRIX ON TAPE 8 BY COLUMNS, NMT RECORDS 
PEWIND 8 
DO 151 J*l ,NMT 

151 WRITE 18) (U( I , J ) i I *1 ,NMC) 

CALL CONEQS (C,NCEQS» NMC ) 

C MATRIX CF CONSTRAINT EQUATIONS IN PHYSICAL COORDINATES IS 
C TRANSFORMED TO ONE IN MODAL COORDINATES VIA THE MATRIX 
C OPERATION C * U * D. 

REWIND 8 

CC 152 J* I, NMT 

READ C8) I R ( 1 .1 , 1 *1 , NMC ) 

CO 152 I* l,NCEQS 
DC I, J) *0,0 
CO 152 I J * 1 , N MC 

152 D< I, J)*DI I,J)+CUtU)*RUJ) 

C WRITE D MATRIX ON TAPE 9 BY COLUMNS, NMT RECORDS 
REWIND 9 
CO 153 J*1,NMT 

153 WPITEI9) ( D( I , J ) » 1*1, NCEQS) 

REWIND 9 

C RE AC COLUMNS OF D AS ROWS OF 0 TRANSPOSE 
CC 154 1*1, NMT 

154 READ (9) < BBU , J ) , J*l ,NCEQS> 

C EVALUATE MATRIX PRODUCT D TRANSPOSE * D 
REWINO 9 
CC 155 J*1,NMT 
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FE AD 19 I ( R 1 1 ) , I = 1 r NCEOS ) 

00 155 I * 1 , NMT 
OTO( I* J 1 = 0.0 
DC 155 I J=1 , NCEQS 

155 OTD( I*JI-DTO( I , J ) *08 1 It IJI*M IJI 
C SOLVE FOR EIGENVALUES AND EIGENVECTORS OF DTD 

CALL JACTV(NMT,NMC,i,DTD»EIGVfBB,0UMl,DUM2,0UM3fDUMA # NERR I 
IF(NERR.EQ.l) GO TO 2200 

C TEST FOP NUMBER OF F t NI TE ( PO SI T I VE I EIGENVALUES OF DTD. MODAL 
C CCLUMNS OF DTD CORRESPONDING TO THE ZERO EIGENVALUES ARE THEN TAKEN 
C TC BE THE CCLUMNS OF THE BETA MATRIX 


FEE V =NMT 
DC 75 

IF ( £ IGV ( J> *LE .0 *01 GO TO 76 

IF( I EIGV( tJI/EIGVC J) ) «GE« 1000000*01 GO TO 76 

75 CONTINUE 

76 IFINFEV.NE.IJ> NFSV=IJ 
PRINT 14 tNFEV 

14 FORM At ( / /* NUMBER OF FINITE EIGENVALUES OF DTD = *,I3//> 
C WRITE EIGENVALUES OF D TRANSPOSE * D ON TAPE 6 
WP I T E 1 6 , 1 1 1 1 It E I GV I II 1 1 *1 » NMT > 

1111 FORMAT!//* EIGENVALUES OF DTD *// 1 2X f E15. 8 )> 

WRIT EC6 » 14) MFE V 
NCBETA*NMT-NFEV 
DO 80 1 = 1 1 NMT 
DO 8C J = 1 » NCBETA 

80 BETA (I « J I »NFEV*J I 

C WRITE BETA MATRIX ON TAPE 9 BY COLUMNS, NCBETA RECOROS 
REWIND 9 

DC 81 J=1,NCBETA 

81 WRITEI9) IBETAU,JJ,I*i,NMT> 

NpaETA^NMT 

C WRITE OROER BETA ON TAPE 3, ONE RECORD 
C WRITE BETA ON TAPE 3 BY ROWS, NR BETA RECORDS 
REWIND 3 

WRITE! 3INPBETA, NCBETA 
DP 66 1*1 »NRBET A 

66 WR I T E ( 3 ) I BETA! I , J > , J.*l fNCBET Al 
C R E AC MATRIX U FROM TAPE 8 
REWIND 8 
DO 82 J = 1 , NMT 

82 FEADI8) I Utl , J I , I* i , NMC I 
REWIND 9 

CO 83 J=l, NCBETA 

READ C9 ) IRC!) ,I=1,NMTJ 

DO 83 1*1, NMC 

BB( I , J) *0 *0 

DO 83 I J= 1 ,NP BETA 

83 BB ( I , J I “88{ I, J l+U< It I J I *R ( IJI 

C WRITE U*BETA ON TAPE 8 BY COLUMNS 
REWIND 8 

DC 84 J=l, NCBETA 

84 WRITEI8I (BBC I ♦ j) , 1 = 1 »NMC I 

C FCRR MASS MATRIX OF UNCOUPLED SYSTEM 
REWIND 12 

NR 8=1 $ NRF=0 $ KK = 0 $ 10*0 

NCB 1 =1 $ NCF 1=0 


a 
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DC 2 00 IJ=1,NMS 

REAO (121 KPN, (( A(I,J), J*1,KPN1, I* l, KPN I 
NRF = NRF«-KPN 
I D= I C+1 

NCF l »NCF l ♦OOF I I J ) 

M=0 

IF(IC.ME.I) M=KK 
00 220 1= NR8 , NRF 
CO 220 J=1,NMC 
220 BM 1 1 ,JJ=0.0 

00 231 I=NRB,NPF 
CC 231 J=NCBl*NCFl 
231 BH(I,J)*A(I-M,J-M) 

NCB1 =NCB1+D0F < I J ) 

NPB=NRB*KPN 
KK=KK+KPN 
2CC CONTINUE 

HMTX(1)*10H UNCOUPLE $ HMTX(2)=10HD SYSTEM M 
HMTX 1 3) * 10HASS MATRIX $ HMTX(4)=10H 

CALL WMTXCl 8M,NMC ,NMC ,NMC ,NMC I 
C GENERATE MASS MATRIX FOR COUPLEO SYSTEM 
C FORM MATRIX PROOUCT M*(U*BETA) 

REWINO 8 

00 85 J=l,NCBETA 

PE AO (8 I (P(t),I=l,NMCI 

CO 85 1*1, NMC 

BBI I ,J)=0.0 

00 85 I J* 1,NMC 

85 B8(l,J)=88(I,J)+BM(I,IJ)*R(lJ) 

C WRITE PRODUCT ON TAPE 9 BY COLUMNS 
REWIND 9 

00 86 J* 1 ,NCBETA 

86 WRITEI9) (BBI I, J», 1*1, NMC) 

C READ COLUMNS OF U*8ETA AS ROWS OF TRANSPOSE 
PEWINO 8 

00 87 I =1 ,NCBETA 

87 RE AO (8 ) (BB(I,J),J*i,NMC) 

C FORM MATRIX PROOUCT BETA TRANSPOSE * U TRANSPOSE * (K * U * BETA) 
REWIND 9 

CC 88 J=1 ,NC8ET A 

RE AO (9) (RU), 1*1, NMC) 

OC 88 1 = 1, NCBET A 
0M< I ,J)=0.0 
CO 88 IJ=1,NMC 

88 BM( I ,J) =BM( I , J) *83 ( I , I J )*R(I J ) 

C WRITE COUPLEO MASS MATRIX ON TAPE 4 BY COLUMNS, ONE RECORD 
PEWINO 4 

WRITE (4) ((BM(I, J), 1 = 1, NC BETA), J=1,NC BETA) 

C FORM STIFFNESS MATRIX OF UNCOUPLED SYSTEM 
REWIND 11 

NRB* 1 * NPF=0 $ KK = 0 * 10=0 

NCB1=1 * NCF 1 =0 
DO 300 I J = 1,NMS 

RE AC (11 ) KPN, KAUfJ) » J-l.KPN), 1=1, KPN) 

KPF=NRF+KPN 
ID=I C-Fl 

NCF 1=NCF l +00F ( I J ) 

M=0 

IF ( I 0«NE • 1 1 M=KK 


A 
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DO 320 I* NRB , NRF 
DO 320 J* 1 » NMC 
320 8K< I , J } =0*0 

CO 331 l=NR8,NRF 
DO 331 J=NCB1 , NCFl 
331 BKCI f J)*A(I-M,J-M) 

NC8 = NCB+SMUJ> 

NC B l =NC 8 1 +OOF ( I J I 
NPB=NRB*KPN 
KK=KK+KPN 
300 CONTINUE 

HMTX(l) = iOH UNCOUPLE % HMTX <2 )= 10HD SYSTEM S 
HMTX ( 3 ) = 10HT l FFNESS M $ HMTX ( 4 } ® 1 OH A TP IX 
CALL WMTXC ( BK , NMC, NMC , NMC , NMC I 
C GENERATE STIFFNESS MATRIX FOR COUPLEO SYSTEM 
C FCRM MATRIX PRODUCT K*(U*BETAI 
PE UNO 8 

CO ^5 J* l »NCBETA 
FEADC8) CPIIlt I=1»NMC> 

DO 95 1=1, NMC 
BBCI ,J)=0.0 
DO 95 1 J=lfNMC 

95 BBC I * J ) =BB( f,J}+8MI, U 

C WRITE PRODUCT ON TAPE 9 BY COLUMNS 
REWIND 9 

DC 96 J = l , NCBET A 

96 WRITEC9I I BBC I , J » , 1*1 , NMC I 

C READ COLUMNS OF U*B£TA AS ROWS OF TRANSPOSE 
REWIND 8 

DO 97 1 = 1 , NCBET A 

97 READ (81 < BBC I , J 1 1 J*1 , NMC) 

C FORM MATRIX PRODUCT BETA TRANSPOSE * U TRANSPOSE * (K * U * BETA ) 
REWIND 9 

DO 98 J=1 ,NCBETA 
READ (9 ) ( R ( 1 1 » 1 = 1, NMC ) 

DC 98 1=1, NCBET A 
BK( I ,J)=0.0 
DC 98 I J* 1 , NMC 

98 BK ( I ,J)«8K( I, JJ + BBU, IJ )*R( IJ ) 

C WRITE COUPLED STIFFNESS MATRIX ON TAPE 4 BY COLUMNS, CNE RECORD 
WR IT E (4 ) ( C BM l , J J , 1*1 , NCBET A t , J= i, NCBET A I 
REWIND 3 
REWIND 4 

IF(NERR.EQ.O) GO TO 2300 
2200 WP ITE (6 » 2210 ) 

PRINT 2210 

2210 FORMAT!//* ERRQP RETURN FROM JACTV - DTD CALL *) 

23CC CONTINUE 
END 


* 
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SUBROUTINE CONE Q5 1 C » NCEQS *NMC ) 

C MATRIX OR CONSTRAINT EQUATIONS IN PHYSICAL COORDINATES 
DIMENSION CINCEQS.NMC) 

CALL ZEROMIC, NCEQS ,NMC, NCEQS »NMC) 

C( 1 , 27 ) *- 1 .0 $ Ctl,49)*SlNt. 52360) S Cl 2,49)*CQSI .52360 ) 
CI3,fc)*-1.0 $ Cl 3»28 ) 3 1. 0 $ Cl 4 >351 *COSI .52360) 

CI4,42)*SINt. 52360) $ CI5,19)=i.O $ Cl 5 » 35)*-l. 0*SI Nt .52360) 

C I 5 ? 42 ) *C O S C • 52 3 60 1 i CI6,27)*~1.0 $ Cl 6 ,68)*SINI .52360 ) 

Cl 7 » 68 ) -COS I .52360) % CI8 f 12)*-1.0 % C|8f50)*l.C 

Cl 9, 56) *COSI .52360) $ Cl 9, 62 >*SINI. 52360 1 

Cl 10*251*1.0 $ Cl 10t56)*-1.0*SINI. 52360) % CU0 f 62V*C0SI .52360) 

RETURN 

END 

SU6RCUT INE ZEROMl A , M , L , MM AX , L MAX) 

0 1 ME NS I ON A I MMAXtLMAX ) 

DC 1C 1*1, M 
DO 10 J*i,L 
10 At I , J) =0.0 
RETURN 
END 

SUBROUTINE WMTXCI A,NR ,NC, MAXR , MAXC ) 

C NR*ROWS HE A, NC*COLS OF A, MAXR=MAX ROWS OF A, MAXC*MAX COLS OF A 
DIMENSION A I MAXR , MAXC ) 

COMMON HMTXI12) 

KE*0 

KSET =NC/8 
K LE F T= M OD ( NC , 8 ) 

IF C K LEFT .ME .0 ) KSET* KSET* 1 
DO 10 KT* 1 , KSET 
KB=K E+i 
KE*KE+8 

IF { K T.EQ.K SET ) KE=NC 

WRITE 16 , 5001 ) HMTXtl J,J=KB,KE) 

DO 1C 1=1, NR 

10 WR IT El 6 , 5002 ) I , I A 1 1 , J ) , J =K8 , KE ) 

50C 1 FORMAT 1 1H1//12A10/ // /10H ROW COL , 14 , 711 IX 14) ) 

5002 FORMAT! I4,8E15. 7) 

RETURN 

END 
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PROGRAM B JD5M I INPUT, OUTPUT, TAPE 2, TAPE3»TAPEA,T APE6 , TAPES, TAPE9, 
1 TAPE5MNPTJT I 

DIME AS ION CM!68,68I,V! 68,681 , EM (68 > , CS 168 , 68 I , E <68 J ,BET A< 68 , 68 ) 

1 P168) ,P|68),CI68,68I,CINV8T!68,68I,BCBT(68,68), 

2 IPIVOT(68> , INDEX 1 68 ,2 I , RUI68 ) ,PU 168 1 ,XVECI68,68I 
COMMON HMTX ( 121, FCON 

EOUI VALENCE I XVECU , 1 ) , 8ETAU , 1 ) , CMtl , 1) , CS 1 1 , 1 ), C INVBTI 1 , 1 ) , 

1 INDEX! 1,1 1 ),!Vll,l),C!l,l),BCBT!l,ll )»|R!l)*RUli) I 

2 ipm.puiin 

«AX=68 $ MBETA=68 

ON ENTRY TO THIS PROGRAM - - - - 
TAPE2 HAS ORDER AND U MATRIX 
TAPE3 HAS ORDER AND BETA MATRIX 
TAPEA HAS COUPLED MASS AND STIFFNESS MATRICES 
l PE AD (5t 5001 1 (HMTX(J) ,J = 5,12I 
5001 FORM AT ( 8 A10 1 

IF! EOF, 5) 8998,8999 

8997 FORMAT!//* PROGRAM BJD5M STOPPED ON !E0F,5J*> 

8999 CONTINUE 

HMTX 11 ) = 10H FINAL MO t HMTX ! 2 )= 10HDAL MATRIX 
HMTX!3) = 10H t HMTX 19)* 10H 

FCON=l.O 
REWIND 3 

C READ ORDER OF BETA FROM TAPE 3 
READ 13) NRB.NCB 
PEWINO A 

C P E AC COUPLED MASS MATRIX FROM TAPE* 

READ !A) 1 (CM! I, J), 1=1, NCB) ,J=l,NCB) 

C SCLVE FCR EIGENVALUES AND EIGENVECTORS OF COUPLED MASS MATRIX 
CALL J ACT V1NCB, M AX ,NCB, CM ,EM, V ,DUM1 , DUM2, DUM3, OUM A, I ERR ) 

IF! IERR.EO.il GO TO 1500 
C TEST FOR NUMBER OF FINITE EIGENVALUES 
DO 10 J=2 »NCB 
IJ=J-1 

IFIEMIJ I.LE.O.C ) GO TO 11 

IFIIEMI IJ)/EM(J)).GE, 1000000.0) GOTO 11 

IF (J.EQ.NCB) IJ=NCB 

10 CONTINUE 

11 NFMEV=IJ 

WPITEIE » 1 1 1 1 ) t E M ( I ) , I = 1 * NCB ) 

1111 FORMAT!//* EIGENVALUES OF COUPLED MASS MATRIX *// 1 2X, E : 1 5, 8 ) I 
PRINT 1 A , NFME V 
WP IT El 6, 1 A) NFME V 

1A FORMAT!//* NUMBER OF FINITE EIGENVALUES OF COUPLED MASS MATRIX 
1,13//) 

C REAC COUPLED STIFFNESS MATRIX FROM TAPEA 
READ !A) ( ( CS! I ,J),l=l« NCB ) ,J=1,NCB) 

C REWIND TAPEA AND WRITE COLUMNS OF VECTOR MATRIX ON TAPEA 
C REWIND TAPE9 AND WRITE ROWS OF VECTOR MATRIX ON T APE9 
REWIND A 
REWIND 9 
DO 2C J=1,NCB 
WRITE19 ) I V! J , I ), 1 = 1, NCB) 

2C WRITE(A) ( VII , J) ,1=1, NCB) 

C MULTIPLY STIFFNESS BY VECTOR AND STORE IN V 
REWIND A 
00 3C J=1,NCB 

C READ COLUMN OF VECTOR MATRIX 

READ 14) !R I M , I =1 , NCB I 
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CO 3C I - 1 *NCB 
V(I,J|*0.0 
DO 30 I J = 1 »NCB 

30 VU-v JI*VI ItJI+CSU, IJI*R! IJI 
C CCMPUTE VT*!CS*V) 

REWIND 4 
CO 40 1*1, NCR 

C READ COLUMN OF VECTOR MATRIX AS ROW OF VECTOR TRANSPOSE 

READ 14) I R (J) 9J-I9NC8) 

DO 40 J=1,NCB 
CS ( I ,J)*0.0 
CC 4C I J = 1 , NC B 

40 CSC l,J)=CSll,JI+R( 1J|*V(IJ,J) 

K*NFMEV 

k=ncb-nfmfv 

C IF THE NUMBER OF FINITE MASS EIGENVALUES INFMEV) IS EQUAL TO THE 
C CPDER OF THE COUPLED MASS MATRIX CM, BYPASS PARTITIONING OF THE 
C CCUPLED STIFFNESS MATRIX CS. 

IF(N.EQ.O) GO TO 79 
KP 1= K + l 
FEW! NO 4 

CS WILL BE PARTITIONED AS FOLLOWS (A B) 

(BT Cl 

WHERE A=(K*K>» B=(K*N), BT= (N*K ) , C*(N*N) 

REWIND 4 

C STORE MATRIX A ON TAPE4 BY COLUMNS, I RECORD 

WRITE! 41 ( (CS( l, J) ,1*1 »K> , J*l, K) 

REWIND 8 

C STORE MATRIX C ON TAPE 8 BY COLUMNS, l RECORD 

WRITE IBM CCS! I, Jl , I-K* L ,NCB I , J*KP 1 ,NCB ) 

C STORE MATRIX B ON TAPES BY ROWS, K RECORDS 

DC 5C 1*1, K 

50 WR I T E ( 8 ) (CS( I, J), J*KPi f NC8l 
C READ MATRIX C FROM TAP68 AND COMPUTE THE INVERSE OF C 
REWIND 8 

FEADI8) UC ( I , J) ,I = 1,N) , J=1,N) 

CALL MATRV{C,N,BI,0,DET» IP I VOT , I NDE X , MAX , I SCALE) 

C COMPUTE C INVERSE TIMES B TRANSPOSE 

CP 6 C J = 1,K 

C READ ROW np B AS COLUMN OF B TRANSPOSE 

READ(8J (PC II , I * 1 ,N I 
cr 60 1*1, N 

CiNVBTl I , J)=O.C 
CC 60 I J* 1 ,N 

6 0 C I N V B T ( It JI*CINVBT(l, J) *C ( I, I JI*P 1 1 J ) 

REWIND 8 

C THE NEXT READ STATEMENT IS A DUMMY READ TO POSITION T APE 8 
R E AD (8 ) SKIPREC 

C COMPUTE B * tC INVERSE * B TRANSPOSE) 

CO 70 1=1 ,K 

C READ Rnw OF B 

READ (8) fP(Jl ,J=I,N) 

DC 7C J=1,K 
ECBTU, J)=0.0 
CC 7 C IJ=l,N 

7 0 BCBTU, J )=BCBT( I , J l+P ( I J I *C IN VBT! U , J I 

C REWIND TAPES 

REWIND 8 
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C STORE C INVERSE TIMES B TRANSPOSE ON TAPE8 BY COLUMNS, I RECORO 

WRi T E 1 8 ) I ICINVBTII , J I , I *1 ,N| , J*l, K) 

REWIND 4 

C READ MATRIX A FROM 4 

READ (4) 1 1 C SI I * J 1 9 J«1»K1 

CCMPUTF A - (8*CINV*BT) 

REPLACE THE FIRST K (FINITE) EIGENVALUES OF THE MASS MATRIX BY 
i.O/ISQUAPE ROOT OF EIGENVALUE! 

79 DO 81 1=1, K 
EMI I l=i.O/SQRT(EM( U> 

IF(N.EQ.O) GO TO 81 
CO 8C J= 1 , K 

80 CS< I ,Jl=CS( I , J 1 -BCBT ( I , J ) 

81 CONTINUE 

C PRE- ANO POST-MULT I PLY THE CS MATRIX BY 1,/SQRTIMASS EIGENVALUES) 

DO 90 1*1, K 
DO 90 J=1,K 

9C CSI I » J) *EMII )*CS (I » J ) 

DC ICO J=l,K 
CO 10(3 1 = 1, K 

100 CSII .JMCSIIf J)*EMU) 

CALL JACTV(K,MAX,K,CS,E , V , DUM 1 , 0UM2, DUM3, DUM4 , NEP P .) 

IF ( NERR • ME .0 ) GO TO 1500 
CALL FREQ(E,CS,K,MAX) 

C PRE-MULTIPLY VECTOR MATRIX BY l./SQRTIMASS EIGENVALUES) 

CO 110 1=1, K 
DO 110 J*1,K 
110 VUfJ) = EMII)*V(I,J) 

PEWIND 4 

C STORE X SUB 1 VECTORS ON TAPE4, BY COLUMNS, K RECORDS 

DO 115 J= 1 , K 

115 WRIT E (4 M VI I* J ) , I=l,< ) 

IF I N «EQ« 0 ) GO TO 144 
REWIND 8 

C READ C INVERSE * B TRANSPOSE MATRIX FROM TAPE8 

READ (8) I(CS(I,J) ,I = 1*N) , J = 1 , K ) 

REWIND 4 

C MULTIPLY IC INVERSE * B TRANSPOSE) BY X SUB 1 VECTOR MATRIX 

DO 120 J=1,K 

C READ COLUMN OF X SUB I MATRIX FROM TAPE4 

PEADI4) (P(I ) * 1 = 1»K) 

DC 120 1=1, N 

vi it ji=o.o 

DC 120 I J=1 ,K 

120 VII, J)=VI I V J)+CSII»IJ)*P< 1J) 

C X SUB 2 VECTOR MATRIX = - VECTOR MATRIX JUST COMPUTED 

CC 125 1=1, N 
DO 125 J = 1 , K 
125 VI It J) = -V ( I , J ) 

C STORE X SUB 2 VECTOR MATRIX ON TAPE4 BY ROWS, 1 RECORD 

WRITE (4) I I VI l ,J),J=1,KI ,I*1,N) 

C REWIND 4, THEN READ X SUB 1 VECTORS INTO FIRST K ROWS OF CS AND 

C READ X SUB 2 VECTORS INTO (K+l) TO NCB ROWS OF CS 

C THE CS MATRIX IS NOW INCB * K) 

14 A REWIND 4 

CO 145 J= 1 » K 

145 READ 14) (CS(I,J) ,1=1, K) 

IF(N.NE.O) RE AO I 4) ( (CSI I , J) * J = 1 ,K ) ,I=KP1,NCB) 

C MULTIPLY MASS VECTOR MATRIX BY CS MATRIX 

PEWIND 9 
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CO 146 I » 1 , NC H 

C PE AO ROW Pf MASS VECTOR MATRIX 

R E AC (9 ) ( R (J)»J«l,NCB> 

CO J=1,K 

VI If Jl*0.0 
DC 1 46 I J = 1 » NCB 

146 V( l 9 J) = VC I t Jl+RI IJ)*C$I I J, J.l 

C COMPUTE BETA * THE FINAL VECTOR MATRIX 

REWIND 8 
CO 151 1= l,NR8 

C READ ROW OF BETA MATRIX 

READC3MR ( J ) , J - 1 , NCB I 
CC 150 J= 1 »K 
PC J) =0.0 
CO 150 I J = ItNCB 

150 PI J ) -PC J ) +P 1 1 J ) * V(UfJ) 

151 WRITE(8)(P(4), J*lfK> 

REWIND 8 

DC 160 I = l » NP B 

160 READI8HBETAI I f J),J=1,K> 

C COMPUTE U * BETA MATRIX 

REWIND 2 
READ (2) NRUfNCU 
REWIND 8 
CC 166 1=1, NRU 

C READ POW OF U MATRIX 

F E AC 12 H P U ( J ) t J « 1 * NCU I 
DC 165 J = i,K 
PUC J ) = 0.0 
CC 165 I J =1 » NCU 

165 PUT J )=PU< Jl+RUC I J ) ♦BETA ( I J , J ) 

166 WRITEI8) C PU C J ) , J=1 ,K ) 

FEWIND 8 

CC 169 1=1, NRU 

165 READ (81 1 XVECt I , J ) , J=L ,K J 

CALL WMTXC I XVEC ,NRU , K , M8E TA , MAX ) 

REWIND 9 
WPITEC9) NRU, K 
WPITE19J 1£{J) * J-lf K) 

DC 170 J=1,K 

17C WR I T E ( 9 ) ( XVEC I I , J ) , I = 1 , NR U ) 

GC TO l 

150C IF (I ERR.EQ.1) WP ITEI6 , 15011 
IFiNERR.NE.O) WP ITEC6 , 1502) 
i 5C 1 FORM AT C //* ERROR RETURN F R CM JACTV - FIRST CALL 
1502 FORMAT!//* EPROP RETURN FROM JACTV - SECOND CALL 
GO TC 1 

8 55 8 WRIT EC 6, 8597) 

PRINT 8997 
END 
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SUBROUTINE WMTXC( A,NR,NC,MAXR ,MAXC) 

C N P = P C W S OF At NC=COLS OF A, MAXR =MAX ROWS OF A, MAXC=MAX COLS OF A 
DIMENSION A ( MAX P t MAXC I 
COMMON HMT X (12i 
KE = 0 

K SET =NC /8 
KLEF T-MOD (NC , 8 ) 

IF(KLEFT.NF.C) K$ET=K$ET+ l 

or 10 KT= ltKSE T 

KB-KE+i 

KE=KE+8 

IF (KT.EO.KSET ) K E*NC 

WR I T 1 1 6 *5001 V H PTX, i J » J=KB, KE ) 

DO 1C 1=1, NR 

10 WP l TE( 6 1 5002 I I , (A( I , J ) , J = KB, KE ) 

5001 FORMAT t IH 1//12A 10/// /l OH ROW COL , 14 , 7 U 1 X 1 4 N 

5002 FORMAT ( T 4 , 8E i 5 • 7 ) 

RETURN 

END 

SUBR OUT IN E FREQ < E , A, K ,MAX ) 

DIMENSION E (MAX ) ,A(MAX,FAXl 
COMMON HMTXU2I » FCON 
CC 10 I * 1 » K 
a ( i, i ) “ e ( n 
A( 1 , 2) = FCnN*E< M 
Ail t3)=S0RT(ABSCA( 1,21 >1 
10 A ( I , 4 ) = A < 1 , 3 ) / 6 • 28 3 1 8 5 3 C7 1 79 5 9 

PR I NT 5014, IHMTXCJ) , J=5 , 12 > , FCON, f I, (At I , J ) , J = l,4 I , I = l, K > 

WP I T E ( -6 f 5 0.1 4 ) CHMTX(J) ,J=5 ,121 ,FCCN,(I,(A( I ,J),J=1,4),I = 1,K) 

5014 FORMAT ( 1H 1/ / 1X8 ALO// 7H FCON = , E 22 • 14/ /4XIHJ9X9HLAMB0A ( J JI4X12H0MEG 
IA SO ( J ) 14X8H0MEGA( J ) 14X1 3HFR EG . ( J ) , CPS/ 34XL8H(FCCN * L AMBDA C J ) I i 
22X6H (RE AL )// (15 ,4E24. 14 )) 

RETURN 

END 
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